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A GUIDE TO PL/M PROGRAMMING 
I. INTRODUCTION TO PL/M. 
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for the INTEL MCS-8 Microcomputer. The language is 
structurally similar to PL/I (in particular, PL/M closely 
resembles XPL) , with data types and primitive operations 
which reflect the architecture of the MCS-8 CPU. Thus, the 
systems designer can use PL/M to quickly and easily express 
programs which execute on the MCS-8 CPU, with little or no 
loss in execution efficiency when compared to assembly 
language programming. In addition, programs written in PL/M 
are somewhat self- documenting, are easily altered and 
maintained, and provide upward software compatibility in the 
INTEL 8000 CPU series. That is, programs written in PL/M 
for the 8008 CPU can be recompiled for the 8080 CPU with no 
alteration of the source program. In each case, the 
resulting object code takes advantage of the particular 
target CPU architecture. 

The discussion of PL/M given here is in two main 
sections. Section II provides a tutorial description of 
PL/M; only a minimal amount of programming experience is 
assumed, and the discussion is mainly expository. Section 
III presents a more formal approach to PL/M, providing the 
exact syntactic structure and corresponding actions of each 
statement in PL/M. Section III is intended as a reference 
manual, but may be used as an introduction to PL/M by 
readers who are familiar with block structured languages 
similar to PL/I or XPL. 

The remaining sections provide system notes on the use 
of PL/M, including compiler error messages, control toggles, 
and execution controls and commands. Appendix A contains 
sample PL/M programs; it may be useful for the reader to 
refer occassionally to this appendix to find instances of 
the various statements as they are discussed in Sections II 
and III. 



II. k TUTORIAL APPROACH TO PL/M. 

As mentioned above, this section describes the PL/M 
programming language from a tutorial viewpoint. The various 
structures of PL/M are introduced at various levels of 
complexity. Examples of each of the constructs are also 
given. The overall structure of a PL/M program is given 
first. 

Ijl. yhe Organization of a PL^M Program.^ 

A PL/M program is arranged as a sequence of 
declarations and statements separated by semicolons. The 
declarations allow the programmer to control allocation of 
storage, define simple macros, and define procedures. 
Procedures are subroutines which are invoked through certain 
statements in PL/M. These procedures may contain further 
declarations which control storage allocation and define 
nested procedures. The procedure definition capabilities of 
PL/M allow modular programming; that is, a particular 
program can be divided into a number of subtasks, such as 
processing teletype input, converting from binary to decimal 
forms, and printing output messages. Each of these subtasks 
is written as a procedure in PL/M. These procedures are 
conceptually simple, are easy to formulate and debug, are 
easily incorporated into a large program, and form a basis 
for library subroutine facilities when writing a number of 
similar programs. 

In addition to the procedure declaration facilities, 
PL/M allows a number of data types to be declared and used 
in a program. The two basic data types are Bjte and 
lMl§ss. A Byte variable or constant is one which can be 
represented in an eight-bit word, while an Address variable 



or constant requires sixteen bits (double byte) . The 

programmer can declare variable names in a PL/M program to 

represent Byte and Address values. PL/M also allows the 
vectors of Byte or Address variables to be declared. 

A number of arithmetic, logical, and relational 
operations are defined in PL/M on Byte and Address variables 
and constants. These operators and values are combined to 
form expressions which resemble elementary algebraic 
expressions. The PL/M expression 

X * ( Y ~ 3 ) / E 
represents the calculation of the value of X times the 
quantity Y-3 divided by the value of R. When values in 
expressions are both Byte and Address type, PL/M 
automatically converts the Byte value to an Address value. 

Expressions are the major components of most PL/M 
statements. A simple statement form is the PL/M assignment 
statement which allows the programmer to compute a result 
and store it in a location defined by a variable name. 
Thus, the assignment 

Q = X* (Y-3) /R 
first causes the computation of the expression to the right 
of the equal sign. The result of this computation is then 
saved in the memory location represented by the variable 
name Q. 

Additional statements are provided in PL/M for 
conditional tests and branching, iteration control, and 
procedure invocation with parameter passing. 

Input and output statements in PL/M allow the 
programmer to read the eight-bit value latched into a 
particular MCS-8 input port, or set the value of an 
eight-bit output port. Procedures can be defined which use 
these basic input and output statements to perform more 



complicated I/O functions. 

A compile-time macro processing facility is also 
provided in PL/M • This facility allows the programmer to 
define a name in the program to represent an arbitrary 
sequence of characters. Each time the name is encountered, 
the corresponding character sequence is substituted into the 
source program. 

The section which follows provides a detailed 
description of the format of a PL/M program. 

2. Basic Constituents of a PL/M Program. 

PL/M programs are written in free-form. That is, the 
input lines are column independent and blanks can be freely 
inserted between the elements of the program. The only 
requirement is that the declarations and statements are all 
terminated with a semicolon. The characters recognized by 
PL/M are given below. These characters can be combined to 
form identifiers and reserved words. 

2.1. PL/M Character Set. The character set recognized 
by PL/M is a subset of both the ASCII and EBCDIC character 
sets. The valid PL/M characters consist of the alphanumerics 

0123456789 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 
along with the special characters 

$=-/()+-'*,<>:; 

all other characters are ignored by PL/M (a blank is 
substituted for an unrecognized character) . 

Special characters and combinations of special 
characters have particular meanings in a PL/M program, as 
shown below. 

Sjrabol Name Use 



$ QOiJiar compiler controls, number 

sign and identifier spacer 

= equal relational test and assignments 

:= assign imbedded assignments 

dot address indicator 

/ slash division symbol and comment delimiter 

( ) parens list and subscript delimiter 

+ plus addition 

minus subtraction 

• apostrophe string delimiter 

* asterisk multiplication and comment delimiter 
< less relational tests 

> greater " 

<= less or " 

equal 

>= greater " 

or equal 

<> not equal " 

: colon label delimiter 

; semicolon declaration and statement delimiter 



2.2. Identifiers and Reserved Words. A PL/M 
identifier is used to represent names of variables, 
procedure names, macro names, and statement label names. 
Identifiers can be up to 31 characters in length; the first 
character must be alphabetic, and the remaining characters 
can be alphabetic or numeric. Imbedded dollar signs ($) are 
ignored by PL/M, and can be used to improve readability of a 
name. Thus, valid identifiers are 

X 
GAMMA 
LONGIDENTIFIER 
INPUT$COUNT 

Note, however, that there are a number of re serve d 
words in PL/M which cannot be used as names in a PL/M 



program. These reserved words are shown below 
Reserved Word Use 

IF conditional tests and branching 

THEN 

ELSE 

DO statement grouping 

PROCEDURE and procedure definition 

END 

DECLARE data declarations 

BYTE 

ADDRESS 

LABEL 

INITIAL 

DATA 

LITERALLY 

BASED 

GO unconditional branching 

TO and iteration control 

BY 

GOTO 
CASE 
WHILE 

CALL subroutine call 

RETURN subroutine return 
HALT machine stop 

OR logical or 

AND logical and 

XOR logical xor 

NOT logical not 

MOD remainder after division 

PLUS add with carry 

MINUS subtract with carry 



EOF end-of-file 

Blanks may be inserted freely around identifiers and 
special characters. Blanks are not necessary, however, when 
two identifiers are separated by a special character. Thus, 
the expression 

X * ( Y - 3 ) / R 
is equivalent to 

X* (Y-3)/R 
in PL/M. 

2.3. Comments. Explanatory remarks can be used 
throughout a PL/M program to improve readability and provide 
a measure of self- documentation. Comments are sequences of 
symbols from the character set of PL/M bounded by the symbol 
pairs /* and */. Thus, the sequence 

/*THIS IS A COMMENT ABOUT COMMENTS*/ 
is completely ignored by the PL/M compiler, and has no 
effect on the program. Comments may be freely interspersed 
in a PL/M program, and may appear anywhere a blank is valid. 

-^ RLZ^ Statement O rganiz ation. 

The statements found in PL/M programs are one of three 
basic types: simple statements, conditional statements, and 
groups . 

An example of a simple statement is the PL/M assignment 

A = B + C * D; 
Note that simple statements are always followed by a 
semicolon. Other forms of simple statements are defined in 
later sections. 

Conditional statements are preceded by the reserved 
word IF and contain one or more other statements as a part 



of the statement body. A conditional statement could be 
written in PL/M as 

IF A > B THEN A = B; 
which assigns the value of B to the variable A only if A's 
value is greater than B's value. 

A more complicated conditional statement involves an 
alternative, denoted by the reserved word ELSE. The 
conditional 

IF A > B THEN C = A; ELSE C = B; 
assigns the larger of the two values A and B to the variable 
C. 

Statements can be collected together in groups which are 
delimited by the reserved words DO and END. These groups of 
statements are then treated as a single statement in the 
flow of control. The group could, for example, become a 
part of a conditional statement: 

IF A > B THEN 

DO; A = B; B = C; 
END; 
which would perform the two assignments to A and B only if 
A is greater then B. 

Simple statements, conditional statements, and groups 
can be labelled for control flow purposes. The label may be 
a PL/M identifier, which precedes the statement, and is 
separated from the statement by a colon (:). Thus, 

LAB1 : A = B + C * D; 
is an example of a simple statement labelled by LAB1. 

The exact details of the various simple, conditional, 
and statement groups are discussed in following sections. 



Ji PJi/M Data Elements^ 

PL/M data elements represent single bytes, double 
bytes, and strings corresponding to 8-bit values, 16-bit 
values, and ASCII character strings of length greater than 
two. Data elements can be either variables or constants. 
Variables are PL/M identifiers corresponding to values which 
can change during execution of a PL/M program, while 
constants have a value which is fixed. The expression 

X * ( Y - 3 ) / R 
involves the variables X, Y, and R, and the constant 3. 

Variables must declared in PL/M programs before they 
are used in expressions. The declaration tells the PL/M 
compiler how to handle expressions and assignments which 
involve the variable. 

4.1. Variable Declarations. A declaration for a 
variable or set of variables is headed by the reserved word 
DECLARE and followed by either a single identifier or a list 
of identifiers enclosed in parenthesis, and terminated by 
one of the data types BYTE or ADDRESS. Thus, valid PL/M 
declarations are: 

DECLARE X BYTE; 
DECLARE (Q,R,S) BYTE; 
DECLARE (U,V,W) ADDRESS; 
Thus, expressions involving only the variables X, Q, R, and 
S produce single byte operations, while expressions 
involving U, V, or W would produce double byte operations 
and results. 

Additional facilities are present in PL/M for declaring 
vectors, macros, and data lists. These facilities are 
discussed in later sections. 



4.2. Byte and Double Byte Constants. Constants 
representing single and double byte values can be expressed 
in several different ways in PL/M. First, PL/M accepts 
constants in the binary, octal, decimal, and hexadecimal 
bases. In addition, ASCII strings of length one or two are 
translated tc single and double byte constants. 

In general, the base of a constant is represented by 
one of the letters 

B Q D H 
following a sequence of digits. The letter B represents a 
binary constant, while the letters and Q denote octal 
constants. The letter D optionally follows decimal numbers. 
Hexadecimal numbers consist of sequences of hexadecimal 
digits (0,1, ... , 9,A ,B ,C,D,E,F) followed by the letter H. 
Note that the leading digit of a hexadecimal number must be 
a decimal digit to avoid confusion with a PL/M identifier (a 
leading is always sufficient). Any number not followed by 
one of the letters B, 0, Q, D, or H is assumed to be 
decimal. The numbers must always be capable of 
representation as a single or double byte value (a maximum 
of 16 bits). Thus, the following are valid constants in 

PL/M 

2 33Q 110B 33FH 55D 55 0BF3H 65535 

The dollar sign symbol may be freely inserted within 
constants to improve readability. Thus, the binary constant 

11110110011B 

could be expressed as 

111$1011$0011B 

ASCII strings are represented by PL/M characters 
enclosed within apostrophe symbols (*). Strings of length 
one or two translate to byte and double byte values as 
mentioned previously. Thus, the string 

'A' 
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IS the same as 65 decimal. A pair of apostrophes {•») 
within a string results in a single apostrophe in the 
internal representation of the string. Thus, the string 
»*»Q» becomes a single apostrophe followed by the character 

Q. 

5^ Well-Formed Expressions and Assignments^ 



PL/M expressions can now be more completely defined. A 
well-formed expression consists of basic data elements 
combined through the various arithmetic, logical, and 
relational operators, in accordance with the usual algebraic 
notation. Thus, an expression consists of a simple data 
element, such as a number or variable, or an expression can 
be two (sub) expressions separated by an operator: 

e xpre ssionl operator expressipn2 
Examples are 

A + B 
A + B - C 
A * E + C / D 
Operators in expressions have an assumed precedence which 
determines the order in which the operations in the 
expression are evaluated. The valid PL/M operators are 
listed below from highest to lowest precedence. Operators 
listed on the same line are of egual precedence and are 
evaluated from left- to-right when they occur in an 
expression. 

* / MOD 
+ - PLUS MINUS 

NOT 
AND 
OR XOR 
The expression 

A + B * C 
for example, results first in the computation of B times C 
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since the multiplication (*) has a higher precedence than 
the addition (+) . The result of this computation is then 
added to the value of A. 

Parenthesis can be used to override the assumed 
precedence ty enclosing subexpressions which are to be 
computed first. The expression 

( A + B ) * C 
causes A + B to be evaluated first. The result is then 
multiplied by C»s value. Following are a number of 
well-formed PL/M expressions 

A + B - C * D 

A - ( B + C ) * D 

A / ( B + C ) * D 

A / ( B + C ) 

A OR B AND OFH 

A + B > C - D 

Each expression results in either a single or double 
byte value. The number of bytes in the result is determined 
by the number of bytes required by the subexpressions in the 
result. Generally, if both operands in an expression are 
byte values, the result is a byte value. If either operand, 
however, is a double byte, the result is a double byte 
value. In this case, the shorter operand is padded with 
high-order zeroes. 

Two exceptions to these rules occur in PL/M. The first 
is in the case of the *, /, and MOD operations. These 
operators always result in a double byte value. The second 
exception is the case of relational operators. A relational 
test results in either a true or false condition. A true 
condition is represented in PL/M by a byte value equal to 
255 (all bits are 1's), and a false condition is represented 
by the byte value 0. 
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Suppose the variables X, Y, and Z have been declared as 
follows: 

DECLARE X BYTE ; 
DECLARE (Y,Z) ADDRESS; 
given these declarations, the expressions below yield 
results with the precision shown to the right of the 
expression: 

X + 5 single byte result 
X + 300 double byte result 
X + Y double byte result 
Y + Z double byte result 
X / 5 double byte result 
X + ( Y > Z ) single byte result 

The NOT operator is a unary operator, and thus PL/m 
expressions involving NOT take the form 

NOT expression 
The effect of the NOT operator is that all the bits of the 
expression are inverted (1,s become O's, and O's become 
1's). In particular, true conditions change to false 
conditions, and false conditions revert to true. Examples 
of the use of the NOT operator are 

NOT A 
NOT (A > B) 
NOT A OR B 

For convenience, a unary minus sign is also allowed in 
PL/K expressions. The form of the unary minus in an 
expression is 

~ expression 
The effect is exactly the same as the expression 

- ex£ression 
where the "-" in this last case is the subtract operator. 
The expression -1, for example, is equivalent to 0-1, 
resulting in the byte value 255. 
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Recall that the assignment statement is used to store 
the result of an expression into a variable. The declared 
precision of the assigned variable affects the resulting 
store operation. If the assigned variable is a single byte 
variable, and the expression is a double byte result, the 
high order byte is omitted in the store. Similarly, if the 
expression yields a single byte result, and the receiving 
variable is declared as type ADDRESS, the high order byte is 
set to zero. 

It is often convenient to assign the same expression to 
several variables. This is accomplished in PL/M by listing 
all the variables to the left of the equal sign, separated 
by commas. The variables A, B, and C could all be set to 
the expression X + Y with the single assignment 

A, B, C = X + Y 

A special form of the assignment is allowed within 
expressions in PL/M. The form of an imbedded assignment is 

(variable := ex£ression) 
and may appear anywhere an expression is allowed in PL/M. 
The expression to the right of the assign symbol (:=) is 
evaluated and then stored into the variable on the left. 
The value of the imbedded assignment is the same as the 
expression on the right. The expression 

A+(B:=C+D)-(E:=F/G) 
results in exactly the same value as 

A+ (C + D) - (F/G) 
except that the intermediate results C+D and F/C are stored 
into B and E, respectively. These intermediate computations 
can then be used at a later point in the program without 
recomputation. 

Note that the form 

A= (B:= (C :=X+Y)) 
has exactly the same effect as the multiple assignment to A, 
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B, and C given previously. 

It is now possible to construct a simple program based 
upon these expressions and assignments. 

§.JL A Sim_Ele Example. 

The following PL/M sample program reads data from input 
ports and 1, and writes the larger of these two values at 
output port 0. Note that the two pseudo-variables INPaT(O), 
and INPUT (1) act like PL/M single byte variables, but have 
the effect of reading the values latched into input ports 
and ^, respectively. Similarly, the pseudo-variable 
OUTPUT (0) can be used in an assignment statement in order to 
write values to output port 0. 

The complete PL/M program for performing this simple 
function is shown below 

DECLARE (I, J, MAX) BYTE; 

/* BEAD INPUT PORT AND SAVE IN VARIABLE I */ 

LOOP: 

I = INPUT(O) ; 
/* NOW READ INPUT PORT 1 AND SAVE IN VARIABLE J */ 

J = INPUT (1) ; 
/* SET MAX TO THE LARGER OF THESE TWO VALUES */ 

IF I > J THEN MAX = I; ELSE MAX = J; 
/* WRITE THE VALUE OF MAX AT OUTPUT PORT */ 

OUTPUT (0) = MAX; 
/* GO BACK AND READ THE INPUT PORTS AGAIN */ 
GO TO LOOP; 
EOF 

The symbol EOF (end-of-f ile) is required in PL/M to 
indicate the end of the program. Note also that the GO TO 
statement causes program control to restart at the point 
labelled »LOOP:» where input values are read again. 
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In order to effectively construct more comprehensive 
PL/M programs, it is necessary to consider the structure of 
PL/M statement groups, including the loop control groups. 

2^ DO Grou£S_, 

As mentioned previously, statements can be grouped 
together within the bracketing reserved words DO and END as 
a DO-group. Recall that the simplest DO-group is of the 
form 

DO; 

statement-1 ; 

statement-2; 

• • « 

statement-n ; 

END; 
Several additional DO-groups are defined in PL/M which 
control program flow. These groups are shown below. 

7.1. The DO-WHILE Group. One form of the DO-group is 
called a DO-WHILE. The DO-WHILE has the form 
DO WHILE expression; 
statement- 1 ; 
statement-2 ; 

• • • 

statement-n; 

END; 
In this case, the expression following the reserved word 
WHILE is evaluated before the statements within the group 
are executed. If the expression evaluates to true (i.e., 
the rightmost bit of the result is 1) , the statements up to 
the corresponding END are executed. At the end of the 
group, program control is transferred to the top of the 
DO-group and the expression is evaluated again. The group 
is executed over and over until the expression results in a 
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false condition (the rightmost bit is 0). Consider the 
following example: 
A = 1; 

DO WHIL2 A <= 3; 
A = A + 1; 
END; 
The statement a = A + 1 will be executed exactly three 
times. The value of A at the end of execution of the group 
is four. 

7.2. The Iterative DO-group. An Iterative DO-group 
allows a group of statements to be executed a fixed number 
of times. The simplest form of the Iterative DO-group is 

DO variable = expressioni TO expression2; 

statement-1 ; 

statefflent-2 ; 

• • • 

statement-n; 
END; 
The effect of this group is to first store^ expressicnl into 
the variable following the DO. The group is executed with 
this initial value once, and control returns to the top of 
the DO. The value of the variable is incremented by 1 and 
tested against expression2. If the incremented value 
exceeds expression2, control transfers to the statement 
following the END; otherwise, the group is executed once 
again. An example is 

DO I = 1 TO 10; 

A = A + I; 

END; 
Note that this DO-group has exactl;^ the same effect as the 
following DO-WHILE: 

1 = 1; 

DO WHILE I <= 10; 
A = A + I; 
1 = 1+1; 
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END; 



A slightly more complicated form of an Iterative 
DO-group allows a stepping value other than 1. This second 

form is 

DO variable = expr1 TO expr2 BY expr3; 

statement- 1 ; 
statement-2 ; 

• • • 

statement-n ; 

END; 
In this case, the variable following the DO is stepped^ by 
the value expr3 instead of by 1. 

7.3. The DO-CASE. Another form of the DO-group is the 
DO-CASE statement. The form of a DO-CASE group is 
DO CASE expression; 
statement- 1 ; 
statement-2 ; 

statement-n; 

END; 
The effect of this group is the following. Upon entry to 
the DO-CASE, the expression following the CASE is evaluated. 
The result of this expression is a value k which must be 
between and n-1. This value k is used to select one of 
the n statements of the DO-CASE to execute. The first case 
corresponds to k = (statement-1) , the second case 
corresponds to k = 1 (stateffient-2) , and so-forth. Control 
transfers to the selected statement, the statement is 
executed, and control then passes to the statement following 
the END. 

An example of the DO-CASE is: 
DO CASE X - 5; 
X = X + 5; /* CASE V 
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DO; /* CASE 1 */ 
X = X + 10; Y = X - 3; 
END; 

/* CASE 2 */ 

DO I = 3 TO 10; A = A + I; 
END; 
END /* OF CASES */ ; 

Before giving more comprehensive examples, it is useful 
to define the notion of a subscripted variable and its use 
in a PL/M program^. 

8i Subscripted Variables and the INITIAL Attribute. 



It is often useful in PL/M to reference memory 
locations with an "offset" from some base address. This 
feature is allowed in PL/M through subscripting. 

8.1. Subscript Declarations and Value References. A 
subscripted variable is similar to a simple variable with 
the addition of an expression enclosed within parentheses 
following the variable name. The location referenced by the 
subscripted variable is the sum of the base address of the 
variable and the subscript expression. Any variable name 
can be subscripted in PL/M. 

Suppose a PL/M programmer declares the variables X, Y, 
and Z as follows 

DECLARE (X,Y,Z) BYTE; 
The first memory location can be referenced simply as X or 
as the subscripted variable X (0) . Similarly, X(1) refers to 
the location Y, and X (2) references Z's location. 

PL/M also allows a fixed number of locations to be set 
aside in the declaration statement. These fixed locations 
start at the variable name specified in the declare 
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statement. For example, the statement 

DECLARE X(100) BYTE; 
provides a memory area of 100 bytes starting at X. In this 
case, X is called a vector. Note that the size of a vector 
must always be a constant. 

Several vectors of the same length can be declared in 
the same declare statement. The statement 

DECLARE (U,V,W) (50) ADDRESS; 
causes three vectors of length 50 (each) to be allocated in 
contiguous memory locations. Note, however, that these 
vectors are of type ADDRESS, and thus each element requires 
two bytes; hence, U takes up the first 50 two-byte 
locations, requiring 100 bytes altogether. The storage for 
the second vector starts at V and requires the next 100 
bytes. Similarly, W occupies the 100 byte area following V. 

As mentioned previously, a subscript can be thought of 
as a displacement from a base address. This displacement, 
however, is affected by the declared precision of the 
variable. That is, if the declared precision is BYTE, then 
the displacement is measured in single bytes. If, however, 
the variable is type ADDRESS, the displacement is measured 
in double bytes. Thus, given the declaration of U, V, and W 
above, the first element of U is U (0) , and the last element 
is U(49). The first element of V is V(0), or U(50). 
Storage is always arranged so that double byte variables are 
at memory addresses which are even numbers; hence, there is 
sometimes one extra word allocated between contigous byte 
and double byte variables. 

Before continuing, it should be noted that the 
subscripts can be complicated expressions, and not 
necessarily just the simple constants shown above. Note 
also that subscripted variables can occur everywhere a 
simple variable is allowed, including expressions and 
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assignments. A single exception to this rule is that a 
subscripted variable cannot be used as the indexing variable 
in an Iterative DO group. 

Two built in functions are provided in PL/M which are 
based upon the declared size of a vector. These functions 
take the forms 

LENGTH (identifier) and LAST(identifier) 
where the identitifers correspond to variables declared 
previously. These forms can appear anywhere an expression 
is allowed in PL/M, and result in the declared length and 
last element number of the specified variable, respectively. 
The following program, for example, uses the LAST function 
to set all the elements of a vector v to the constant 5. 
DECLARE V(100) BYTE; 
DECLARE I BYTE; 

DO I = TO LAST (V) ; 
V(I) =5; 
END; 
EOF 

8.2. The INITIAL Attribute. The values of variables 
can be initialized in a declaration statement using the 
INITIAL attribute. This attribute takes the form 

INITIAL (constant-1 ,constant-2,. . . , constant-n) ; 
and must directly follow the type (BYTE or ADDRESS) in the 
declare statement. 

The purpose of the INITIAL attribute is to preset the 
values of memory locations starting at the location named in 
the declarations. The constants given in the INITIAL 
attribute are placed into memory before the program starts 
(these constants become a part of the object code and must 
be loaded into random-access memory) . The following are 
valid variable declarations which use the INITIAL attribute. 

DECLARE X BYTE INITIAL (10); 
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DECLARE 1(10) BYTE INITIAL (1,2,3,4,5,6,7,8,9,10); 
DECLARE 2(100) BYTE INITIAL 
('SHORT', 'STRING' ,0FH,33) ; 
DECLARE U{100) ADDRESS INITIAL (3, 4 ,333Q) ; 
DECLARE (Q,R,S) BYTE INITIAL ( 0, 1 , 2) ; 
Note that the number of bytes required to hold the 
constants given in the INITIAL attribute need not correspond 
to the length declared for the variable. The constants are 
placed into memory without truncation starting at the first 
byte allocated in the declare statement. 

The use of subscripted variables is shown in the 
example which follows. 

9i A Sorting Program. 

It is now possible to construct a more complicated 
program, given the expressions, DO-groups, and subscripted 
variables which have been presented. In the program which 
follows, a vector A is initialized to a set of constants in 
unsorted order. The program below sorts the values of A 
into ascending order. 

/* FIRST DECLARE A VECTOR TO HOLD THE 
VALUES TO SORT. 

ASSUME THERE ARE NO MORE THAN 10 ELEMENTS TO BE 
SORTED. EACH ELEMENT IS BETWEEN AND 65535 */ 
DECLARE A (10) ADDRESS INITIAL 
(33,10,20 00,40 0,410,3,3,33,5 00,19 99) ; 
/* START THE 'BUBBLE SORT' AT THIS POINT 
EXAMINE ADJACENT ELEMENTS OF 'A' AND SWITCH INTO 
ASCENDING SEQUENCE. RECYCLE UNTIL NO MORE 
SWITCHING OCCURS */ 
DECLARE (I, SWITCHED) BYTE, 

TEMP ADDRESS; 
SWITCHED = 1; 

DO WHILE SWITCHED; SWITCHED = 0; 



/* GO THBOUGH »A* ONCE AND LOOK FOR A PAIR 
WHICH NEEDS TO BE REVERSED */ 
DO I = TO 8; 
IF A (I) > A (1+1) THEN 
DO; SWITCHED = 1; 
TEMP = A(I) ; A(I) = A (1+1) ; 
A(I+1) = TEMP; 
END; 
END; 
END; 
/* THE VALUES IN «A' ARE NOW IN ASCENDING ORDER */ 
EOF 

1 C- Procedure Definitions and Procedure Calls, 

The procedure capabilities of PL/M are discussed in 
this section. A procedure, or subroutine, is a section of 
PL/M source code which is declared, but not executed 
immediately. Instead, the procedure is called from various 
parts of the program. The call amounts to a transfer of 
program control from the calling point to the procedure. 
The procedure executes, and, upon completion, returns to the 
statement following the call. 

The use of procedures in PL/M allows construction of 
modular programs, allows construction and use of subroutine 
libraries, eases programming and documentation, and reduces 
generated code when similar program segments are used at 
several points in the program. 

Procedures are described in two parts: how to define 
them, and how to use them. 

10.1. Procedure Declarations. A procedure declaration 
consists of four main parts: the procedure name, 
specification of values which are sent to the procedure, the 
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type of the returned value (i.e., BYTE, ADDRESS, or no 
returned value) , and the description of the actions of the 
procedure, called the procedure body. The procedure may be 
invoked anywhere in the program after it is declared. The 
form of a procedure declaration is 

procedure-name: PROCEDURE argument-list procedure-type; 

statement-1 ; 

statefflent-2; 

• • • 

statement-n ; 

END procedure-name; 

The procedure-name is any valid PL/M identifier, and is 
used to name the procedure so that it can be called at a 
later point in the program. 

The argument-list takes the form 

(argument-1 ,argument-2 ,. . . ,argument-n) 
where argument-1 through argument-n are valid PL/M 
identifiers. These identifiers are called formal parameters 
and are used to hold particular values which are sent to the 
procedure from the point of invocation. Each of these 
parameters must also appear in a declarations statement 
within the procedure body (before the corresponding END) . 
Note that the argument- list can be omitted altogether if no 
parameters are passed to the procedure. 

The procedure-type is either BYTE, ADDRESS, or can be 
omitted if the procedure does not return a value to the 
calling point. The procedure-type defines the precision of 
the value returned so that proper type conversion takes 
place when the procedure is invoked as a part of an 
expression. 

The execution of a procedure is terminated with a 
RETURN statement in the procedure body. The RETURN 
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statement takes the form 

SETQEN; 
or 

RETURN expression; 
The first form is used if the procedure-type is omitted (no 
value is returned to the calling point) . The second form is 
used if the procedure-type is BYTE or ADDRESS. The 
expression following the RETURN is brought back to the 
calling point in this case. 

The statements within the procedure body can be any 
valid PL/M statements, including nested procedure 
definitions and invocations. A number of valid PL/M 
procedure declarations are listed below. 
NULL: PROCEDURE; 

RETURN; 

END NULL; 
SUM: PROCEDURE (X,Y) ; 

DECLARE (X,Y) ADDRESS: 

/* ASSUME U IS PREVIOUSLY DECLARED */ 

U = X + Y; 

RETURN; 

END SUM; 
ZERO: PROCEDURE BYTE; 

RETURN 0; 

END ZERO; 
IDENTITY: PROCEDURE (X) ADDRESS; 

DECLARE X ADDRESS; 

RETURN X; 

END IDENTITY; 
PLUSXY: PROCEDURE (X,Y) BYTE; 

DECLARE (I,X,Y) BYTE; 

I = X - Y; 

RETURN X + Y; 

END PLUSXY; 
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10-2, Procedure Calls. Procedures can be invoked 
anywhere after their declaration. There are two possible 
forms of the call, depending upon whether the procedure-type 
is present or omitted in the procedure declaration. 

If the procedure-type is omitted, then the procedure 
does not return a value to the point of invocation. In this 
case, the form of the call is 

CALL procedure-name argument-list 
where the procedure-name and argument-list correspond to 
those defined above. The effect in PL/M is to assign the 
actual values in the argument-list at the call to the 
identifiers given in the argument-list in the procedure 
declaration. The elements of the argument-list in the call 
are called actual parameters, and are not restricted to 
simple PL/ffl identifiers. In fact, any valid PL/M expression 
can be placed in the argument-list. These expressions are 
all evaluated in the actual parameter list before they are 
assigned to the corresponding identifiers in the formal 
parameter list. If the procedure is declared with an empty 
formal parameter list then the actual parameter list is also 
omitted. Control is then transferred to the beginning of 
the procedure named by the procedure-name. 

Thus, given the procedure definitions above, the 
following are all valid procedure calls 

CALL NULL; 
CALL SUM (5,3) ; 
CALL SUM(Q,E + Z) ; 
In the last case, for example, the value of Q is first 
placed into X in the procedure SUM. The value of R + Z is 
then computed and stored into the formal parameter Y. 
Control then passes to the procedure SUM where the variable 
U is set to the sum of these two values (it is assumed that 
U has been declared ahead of the procedure SUM) . Note that 
automatic type conversion occurs between BYTE and ADDRESS 
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values when the actual parameters are assigned to the formal 
parameters. 

The second form of a procedure call occurs when the 
procedure is declared with a procedure-type of BYTE or 
ADDEESS. In this case, the procedure call results in a 
value which can be used in an expression. The form of the 
call is 

procedure-name argument-list; 
and may appear anywhere a PL/M expression is allowed. The 
following calls demonstrate a number of valid PL/M procedure 
invocations 

I = IDENTITY (I) ; 

X = PLUSXY(X,Y) ; 

X = Q-PLUSXY (X+Y,Q)/ (X-Y) ; 

DO I=PLUSXY (Q,E) TO PLUSXY (Z +R, Q) +10; END; 

As an example of a procedure declaration and call, 
consider the sorting program given earlier. The segment of 
the program which performs the sort can be redefined as ^a 
procedure. Assume the procedure has a single formal 
parameter which gives the upper bound of the sort loop. The 
value returned by the procedure is the number of switches 
required to sort the vector. 

DECLARE A (10) ADDRESS INITIAL 
(33,10,20 00,400,410,3,3,33,5 00,19 99) ; 
SORT: PROCEDURE (N) ADDRESS; 

/* SORT THE VECTOR AT 'A' OF LENGTH 
N + 2. RETURN THE NUMBER OF SWITCHES 
REQUIRED TO PERFORM THE SORT */ 
DECLARE (N, I, SWITCHED) BYTE, 

(T1,T2, COUNT) ADDRESS; 
SWITCHED = 1; COUNT = 0; 

DO WHILE SWITCHED; SWITCHED=0; 
DO I = TO N; 
T1 = A(I) ; T2=A (1 + 1) ; 
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IF T1 > T2 THEN 

DO; A (1+1) = T1 ; 
A(I) = T2; SWITCHED = 1; 
COUNT = COUNT + 1 ; 
END; 
END; 
END; 
RETURN COUNT; 
END SORT; 
/* THE SORT PROCEDURE IS DECLARED ABOVE. 
CALL SORT WITH N -2 = 10 - 2 = 8 */ 
DECLARE NSWITCHES ADDRESS; 
NSWITCHES = SORT (8) ; 
EOF 

The program shown above illustrates a difficulty in 
parameter passing which has not yet been considered. In 
particular, the SORT procedure would be much more useful as 
a library subroutine if several different vectors could be 
processed by the same subroutine. As shown, the SORT 
procedure is only capable of sorting the particular vector 
A. 

The next section introduces the notion of based 
variables which overcome this difficulty. 

j 1. Based Variables, 

Based variable features of PL/M allow computation of 
variable addresses during execution of a program. A based 
variable is similar to the variables discussed previously, 
except that no storage is allocated for the variable. 
Instead, corresponding to each based variable is an address 
variable, called the ba§.^' which determines the memory 
address for the based variable during execution. 
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Based variables are declared using the BASED attribute 
which specifies the base. The form of the BASED attribute 
is 

BASED identifier 
where the identifier is a previously declared ADDRESS 
variable name. The BASED attribute must immediately follow 
the name of the based variable in the declaration statement. 
The following are examples of PL/M based variable 
declarations 

DECLARE X BASED A BYTE; 
DECLARE (X BASED XA , Y BASED YA) ADDRESS; 
DECLARE (Q BASED QA) (100) BYTE; 
In the first case, a byte variable called X is declared. 
The declaration implies that X will be found at the location 
given by the address variable A (which must be declared as 
an ADDRESS variable elsewhere) . 

The second declaration above defines two based 
variables X and Y both of type ADDRESS which are located at 
XA and YA, respectively. 

The third declaration defines a vector based variable 
called Q based at QA. Note that the vector size need not be 
stated, however, since no storage is allocated to Q by the 
PL/M compiler. The only use for the vector size is to 
provide values for the LENGTH (Q) and LAST(Q) built-in 
functions described previously. 

In order to make effective use of based variables, it 
is necessary to allow programmatic reference to the assigned 
address of a non-based variable. The memory location 
assigned to a variable is designated by preceding the 
variable name with a dot symbol (.). Thus, the expressions 

.A and .A (5) 
yield the address of A and the address of A (5) , 
respectively. If A is a BYTE variable, the value of .A+5 is 
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the same as .A (5). Similarly, if A is of type ADDRESS, then 
.A+10 is the same as .A (5) . The address reference to a 
based variable is allow and results simply in the value of 
the base. 

An address reference using the dot symbol can be used 
anywhere an expression is valid in PL/M. 

As an illustration of the use of based variables, 
consider the following loop which initializes the elements 
of a vector to their respective element numbers 
DECLARE A (100) ADDRESS; 
DECLARE I BYTE; 

DO I = TO LAST (A) ; 

A (I) = I; 

END; 
EOF 

This same function can be performed (rather 
inefficiently) with the following loop using based variables 
DECLARE A (100) ADDRESS, 

QA ADDRESS, Q BASED QA ADDRESS; 
/* SET QA TO THE BASE ADDRESS OF A*/ 
QA = .A; 
DECLARE I BYTE; 

DO I = TO 99; 
Q = I; QA = QA + 2; 
END; 
EOF 

Note that QA starts at the base of A and moves up by 
two bytes on each iteration since each element of A occupies 
two bytes. 

Based variables are , most commonly found in procedure 
parameter passing. It is often necessary to return more 
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than one value from a procedure. In this case, the address 
of an actual parameter can be passed to the procedure 
instead of the value of the actual parameter. The 
corresponding formal parameter is declared within the called 
procedure as an address variable. This formal parameter is 
then used as a base for a based variable whithin the 
procedure. Any changes to the based variable then alter the 
corresponding actual parameter. 

In the case of the SORT procedure, for example, the 
address of a vector to be sorted can be sent as an actual 
parameter. The SORT procedure then operates upon a locally 
defined based variable. The revised SORT procedure is shown 
below 

SORT: PROCEDURE (Q,N) ADDRESS; 

DECLARE (N, I, SWITCHED) BYTE, 
(Q,T1,T2, COUNT) ADDRESS; 
/* AND THEN SET UP THE BASED 
VARIABLE TO SORT */ 
DECLARE A BASED Q ADDRESS; 
SWITCHED = 1; COUNT = 0; 

DO WHILE SWITCHED; SWITCHED=0; 
DO I = TO N; 
T1 = A (I) ; T2=A (1 + 1) ; 
IF T1 > T2 THEN 

DO; A (1+1) = T1; 
A(I) = T2; SWITCHED = 1; 
COUNT = COUNT + 1 ; 
END;END;END; 
RETURN COUNT; 
END SORT; 
DECLARE B(10) ADDRESS INITIAL 

(33,10,2000,40 0,410,3,3,33,5 00,1999) ; 
DECLARE C (5) ADDRESS 

INITIAL(«A',32,0FFFH,22Q,2D) ; 
/* NOW SORT THE VECTORS B AND C */ 
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DECLARE (N1,N2) ADDRESS; 
N1 = SORT (-B,LAST(B) -1) ; 
N2 = SORT (.C,LENGTH(C)-2) ; 

EOF 

The SORT procedure has two formal parameters Q and N. 
Q is an ADDRESS variable which gives the base address of the 
vector to be sorted. The parameter N gives the upper bound 
in the sort loop, as before. The variable A is declared 
inside SORT as an ADDRESS variable based at Q. Thus, 
references to A inside SORT are actually references to 
memory locations starting at the value of Q. 

The SORT procedure is called twice. First, the vector 
B is sorted by sending the base address of B. The second 
call sorts C by passing the base address of C as the first 
actual parameter. 

The section which follows introduces the concept of a 
long constant. These long constants allow manipulation of 
data which exceed two bytes in length. 

12.^ L2R9. Constants. 

Recall that PL/M allows direct representation of 
numeric and string constants which require a single or 
double byte internal representation. It is often useful, 
however, to manipulate constants of indefinite length. This 
facility is provided in PL/M through the use of long; 
constants . 

A PL/M long constant is a set of contiguous memory 
locations represented by the address of the first byte. The 
memory locations for long constants are allocated in the 
same area as the program storage, and are initialized to the 
string and numeric values specified in the constant (program 
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steps and long constants are normally a part of the Read 
Only Memcry portion of storage, and thus cannot be altered 
during execution) . The first form of a long constant is 
simply 

• constant 
where the constant is a string or numeric value. The result 
of this expression is an address value providing the 
location of the constant. The second form allows several 
constants to be gathered together and based at the same 
address. This form is 

. (constant-1,constant-2,. . . , constant-n) 
Again, the result of this expression is an address value 
giving the starting position of the constants in memory. 

Valid PI/M long constants are 

. 335 
. 'THIS IS A LONG CONSTANT STRING* 
. ('THREE*, 'STRING', 'CONSTANTS') 
- (3, 'CONSTANTS', 0FFE2H) 
These long constants can appear anywhere a PL/M expression 
is allowed. 

Another form of a long constant allows the constant to 
be named and accessed as a subscripted variable. This 
second form is a particular case of the declare statement 
called a DATA declaration. The form is 

DECLARE identifier DATA (constant-1 , . . . ,constant-n) ; 
The following are valid PL/M DATA declarations 

DECLARE X DATA ('LONG STRING'); 
DECLARE Y DATA (0,1 ,2 ,3 , • STRI NG • ,4) ; 
These two declarations have an effect similar to INITIAL 
declarations except that new values cannot generally be 
assigned to the elements of X and Y. In addition, there is 
an automatic vector size assigned to elements declared in a 
DATA declaration which is the number of bytes required to 
hold the constants listed in the DATA attribute. m the 
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above case, both X and Y are treated as BYTE variables with 
vector size 11. As a result, the LENGTH and LAST built-in 
procedures can be applied to DATA variables to determine the 
length of the constant string. 

Given the above DATA declaration, the expressions below 
evaluate to the result shown on the right 

X (0) = 'L* 
X(10) = 'G* 
Y(3) =3 
LENGTH(Y) = 11 

As an example, consider the following PL/M procedure, 
called EQUAL, which compares two long constants for 
equality. EQUAL has two formal parameters which give the 
base addresses of two long constants. The last byte of each 
constant is Offh. EQUAL returns a 1 if the constants match, 

and if not. 

EQUAL: PROCEDURE (AS1,AS2) BYTE; 
DECLARE (AS1,AS2,I) ADDRESS, 

(SI BASED AS1, S2 BASED AS2) BYTE, 

/-r-l "fO\ UYmTf m 
(U I f U^f ijl J. JJ J 

/* COMPARE UNTIL A MISMATCH OR OFFH 
IS FOUND IN BOTH STRINGS V 
J1, J2, 1=0; 

DO WHILE J1 = J2; 

IF J1 = OFFH THEN RETURN 1; 

J1 = SI (I) ; J2 = S2(I) ; 

1=1+1; 

END; 
RETURN 0; 
END EQUAL; 

Assume that the following declarations occur in the 

program 

DECLARE X DATA (' W ALLAWALLAWASH* , OFFH) ; 
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DECLARE Y DATA (' W ALLAWASH' , OFFH) ; 
The EQUAL procedure can be called by 

I = EQUAL(.X,. (»WALLAWALLAWASH» ,OFFH) ) ; 
As a result, I is set to 1. The value of I in the case 

I = EQUAL (.X,.y) 
is zero since the strings X and Y differ. 

As a final comment, one should note that the 
fundamental difference between DATA variables and BYTE 
variables with the INITIAL attribute is in the allocation 
of storage. DATA variables are stored in the same area as 
program code, as mentioned previously, and cannot generally 
be altered through a PL/M assignment. BYTE variables, on 
the other hand, are allocated in alterable program storage. 
The INITIAL attribute provides data which is preloaded into 
these locations before the program executes (and hence is 
volatile storage) . In this case, these initial values can 
always be changed with assignment statements during 
execution. 

JJi Sco£e of Variables . 

An important concept in any block-structured language, 
such as PL/M, is the notion of variable scope. The scope of 
a variable in PL/M is the range of statements where the 
variable can be used in expressions and assignments. The 
scope of variables is controlled by the arrangement of 
DO-groups and DECLARE statements. A variable is available 
for use only within the DO-END statements in which the 
DECLARE statement for the variable occurs. This range is 
called the scope of the declared variable. 

Consider the following PL/M program, for example: 

1 DECLARE (A,B,C,D) BYTE; 

2 E,C = 10; 

3 A = B + C; 
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4 DO; 

5 DECLARE (Q,R,S) BYTE; 

6 Q, R = 20; 

7 S=A + Q + R; 

8 END; 

9 D = 2 + A; 
10 EOF 

The declaration on line 1 defines four variables A, B, 
C, and D which can be used throughout the program. The 
DO-group between lines 4 and 8 contains a declaration of 
three variables Q, R, and S which are defined only within 
the group; that is, although A, B, C, and D can be used 
anywhere in the program, the variables Q, R, and S cannot be 
referenced outside the range of statements beginning on line 
4 and ending on line 8. These lines delimit the scope of Q, 
R, and S. 

A more complicated structure is given by the following 
skeletal PL/M program 

DECLARE (A,B,C,D) BYTE; /* BLOCK 1 */ 

o a » 

DO; /* BLOCK 2 */ 
DECLARE (A,E,F,G) BYTE; 

• • • 

DO; /* BLOCK 3 */ 
DECLARE (B,H,I,J) BYTE; 

• • « 

END;/* OF BLOCK 3 */ 

END; /* OF BLOCK 2 */ 

DO; /* BLOCK 4 */ 
DECLARE (A,E,K,L) BYTE; 
• • • 
END; /* OF BLOCK 4 */ 
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/* BLOCK 1 IS COMPLETED */ 
EOF 

The declaration of A, B, C, and D at the top of block 1 
makes these variables global to any nested inner blocks in 
the program. That is, they can be referenced anywhere in 
the program where there is no conflicting declaration. 

The variables A, E, F, and G at the top of block 2 are 
said to be local to block 2 and global to block 3. These 
variables cannot be referenced outside block 2. Note that 
the variable A in block 2 conflicts with the declaration of 
A in block 1. in this case, any reference to A within block 
2 refers to the innermost declaration of A, Similarly, the 
variables B, E, I, and J declared at the top of blcck 3 
cannot be accessed outside block 3. Again, the declaration 
of B in block 3 overrides the outer block declaration of 
this variable name. 

Block 4 is Earallel to block 2 in this program. The 
variables A, E, K, and L are local to block 4. Thus, the 
variables E, K, and L are undefined outside block 4, and 
references to A outside block 4 affect the variable A 
declared on the first line. 

The notion of scope of variable names extends to 
procedure names and to formal parameters declared within 
procedures. A procedure declaration is treated the same as 
a DO-group in defining scope of variables. As an example, 
consider the following program 
/* BLOCK 1 */ 
CECLAEE (I,J,K) BYTE; 
PI: PROCEDURE (I, Q) BYTE; 
/* BLOCK 2 */ 
DECLARE (I,Q,J,R) ADDRESS; 
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END PI /* AND BLOCK 2 */; 
E2: PROCEDURE (J,Q,R) ADDRESS; 
/* BLOCK 3 */ 
DECLARE (J^Q,R,S,T) BYTE; 

• • • 

END P2 /* AND ALSO BLOCK 3 */ 

« • • 

/* BLOCK 1 IS FINISHED */ 
EOF 

The variables I, J, and K are global to both the P1 and 
P2 procedures. The procedures PI and P2 constitute 
independent parallel blocks, each with their own local 
variables. Note that the local variable I declared in 
procedure PI is used in all references to I within block 2, 
instead of the global variable declared in line 1. Note 
also that the variable Q defined in Pi is completely 
independent of the Q declared in P2, 

The principal advantage to the scope of variable 
concept in PL/M is that subroutines are independent of the 
program in which they are imbedded, with no problems arising 
from conflicting declarations. In particular, library 
subroutines can be written as completely modular subprograms 
with no dependence upon the names used outside the 
procedure. 

lii Statement Labels and GO TO^s^ 

PL/M allows program statements to be identified with a 
statement label, and allows unconditional transfer of 
program control to these labelled statements. 

14.1. Label Names. A PL/M labelled statement takes 
the form 
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label- 1: label-2: ... label-n: statement; 
where label-1 through label-n are valid PL/M identifiers or 
constants. Any number of labels may precede a PL/M 
statement. Valid labelled statements are 

L1: X = X + 1; 

LOOP: Y = 3; 

L1 : LOOP: X = y + 5; 

30: Y = X -5; 

LOOP: 30: LI: Q = 5 + Y; 

The function of numeric labels is to specify an origin 
for code generation. The statement "30: Y = X - 5;" for 
example, specifies that the object code for this statement 
is to begin at location 30 in memory. The identifier form 
of a statement label has no effect on the origin of the 
code, but does provide a destination for GO TO statements. 

14.2. GO TO Statements. PL/M allows three distinct 
forms of an unconditional transfer. The first is 

GO TO label; 
In this case, the label is an identifier which appears as a 
label in a labelled statement. Program control transfers 
directly to the statement with this label. 

The second form of a GO TO is 

GO TO constant; 
The constant is any valid PL/M single or double byte number. 
Program control transfers to the absolute location in memory 
given by this number. 

The last form is 

GO TO variable; 
where the variable contains a computed memory address. 
Control transfers directly to this computed absolute 
address. 
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The following program illustrates the use of labelled 
statements and GO TO's. 

DECLARE X ADDRESS; 

10: GO TO KEYIN; 

LOOP: Q = R + 3; 

IF Q > Z GO TO LOOP; 

• • • 

GO TO EXIT; 

/* COMPUTE AN ADDRESS AND BRANCH */ 

X = .MEMORY + 13; 

GO TO X; 

GO TO 30; 

EXIT: HALT; 
EOF 

14.3. Scope of Labels. It should be noted that the 
identifier form of a label has an implied scope^ similar to 
variables and procedures. This implied scope can be made 
explicit through the PL/M label declaration. The form of 
the label declaration is 

DECLARE identifier LABEL; 
or 

DECLARE (identifier-1,.. . ,identifier-n) LABEL; 
The label declaration informs the compiler that a label or 
set of labels will occur at the same block level as the 
declaration. The label declaration is only necessary, 
however, when the implied declaration does not correspond to 
the programmer's intention. In particular, any occurrence 
of an undeclared label in either a GO TO statement, or as a 
statement label results in an immediate automatic 
declaration of the label. This implied declaration is most 
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easily seen by example. The programs to the left below 

contain undeclared labels. The implied declarations 
resulting from these labels are shown in the corresponding 
programs to the right. 

PROGRAM 1 

- • - I DECLARE LOOP LABEL; 
LOOP: X = X + 1; I LOOP: X = X + 1; 

GO TO LOOP; | GO TO LOOP; 

EOF j EOF 

PROGRAM 2 

- - . I DECLARE LOOP LABEL; 
LOOP: X=X+1; I LOOP: X=X+1 ; 

DO; I DO; 

• • • 1 DECLARE Q1 LABEL; 

GO TO Q1; I GO TO Q1 ; 

Q1: Y=Y+1 ; I Q1: Y = Y+1; 

GO TO LOOP; | GO TO LOOP; 

END; I END; 

• • • 1 DECLARE EXIT LABEL; 
GO TO EXIT; | GO TO EXIT; 

EXIT: HALT; | EXIT: HALT; 

EOF I EOF 

PROGRAM 3 

X=X+1; I X=X+1; 

DO; I DO; 

• - • I DECLARE L1 LABEL; 

GO TO LI; I GO TO L1 ; 

11: Y=Y+1; I L1: Y=Y+1; 

END; I END; 

• - . I DECLARE L1 LABEL; 
LI: Q=Q+3; | LI: Q=Q*3; 

GO TO L1; I GO TO L1 ; 

EOF I EOF 

The only instance which requires explicit declaration 
of a label is when a GO TO statement in an inner nested 
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block references a label in an outer block, and the label 
follows the GO TO statement. Consider the following 
program, for example. 
/* BLOCK 1 V 

A ■"■ A ' * 5 

DO; /* BLOCK 2 */ 

GO TO EXIT; 

END /* OF BLOCK 2 V; 

EXIT: HALT; 
EOF 
The implied label declaration created by the PL/M compiler 
for the label EXIT results in the program 
X = X + 1 ; 

■ • • 

DO; 

DECLARE EXIT LABEL; 

GO TO EXIT; 

END; 

• • « 

DECLARE EXIT LABEL; 

EXIT: HALT; 

EOF 

Note that the resulting program is in error since the 

implied declaration of EXIT in block 2 indicates that the 

scope of EXIT is only block 2, conflicting with its 
occurrence in block 1. Thus, the label declaration can be 

used to remedy the situation. The programmer overrides the 
implied declaration with 

DECLARE EXIT LABEL; 
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X = X + 1 ; 

DO; 

GO TO EXIT; 

END; 

EXIT: HALT; 
EOF 

As a final note, the PL/M programmer is encouraged to 
use the IF-THEN-ELSE and DO-group constructs in the place of 
labelled statements and GO TO's whenever possible. The 
effect in most cases is better object code and improved 
readability of the source program, 

l^i Com^ile^Time Macro Processing^ 

PL/M allows declaration and expansion of simple macros 
at compile time. The LITERALLY declaration in PL/M allows 
the programmer to define an identifier to represent a 
seguence of arbitrary characters. The PL/M compiler 
automatically substitutes the defining string at each 
occurrence of the defined identifier. The form of the 
LITERALLY declaration is 

DECLARE identifier LITERALLY string; 
where the identifier is any valid PL/M name which does not 
conflict with previous declarations, and the string is an 
arbitrary PL/M string, not exceeding 255 characters in 
length. 

The following program illustrates the use of the PL/M 
macro facility 

DECLARE TRUE LITERALLY M», 

FALSE LITERALLY 'O' ; 



43 



EECLARE DCL LITERALLY 'DECLARE', 

LIT LITERALLY 'LITERALLY'; 
DCL FOREVER LIT 'WHILE TRUE'; 
DCL (X,Y,Z) BYTE; 

X = TRUE; 

DO FOREVER; Y=Y+1; 
IF Y > 10 THEN HALT; 
END; 

• • • 

EOF 
The declarations on lines 1 and 2 allow the programmer to 
use the symbols TRUE and FALSE instead of and 1, which 
often makes the program more readable. The declarations for 
DCL and LIT define abbreviations for DECLARE and LITERALLY, 
respectively- 

The DC FOREVER statement on line 8 first expands to DO 
WHILE TRUE. The macro expansion of TRUE then results in a 
loop headed by DO WHILE 1 (which executes indefinitely, 
until the HALT statement is executed) . 

The LITERALLY declaration is also useful for declaring 
fixed parameters for the particular compilation, but which 
may change from one compilation to the next. Consider the 
program below, for example: 

DECLARE ASIZE LITERALLY '300', 
PBASE LITERALLY '4000', 
SUPERVISOR LITERALLY '200'; 
DECLARE (A (ASIZE), I) ADDRESS; 

PBASE: A(ASIZE-10) =50; 

GO TO SUPERVISOR; 



EOF 
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In this case, ASIZE defines the size of the vector A. The 
value of ASIZE can be altered in the LITERALLY declaration 
without affecting the remainder of the prograia. Similarly, 
the value of PBASE defines the starting location of the 
program since it expands to a numeric label. The expansion 
of the PBASE macro results in the statement 

4000: A(ASIZE-1) = 50; 
In the case of the SUPERVISOR macro, the statement "GO TO 
SUPERVISOR" is replaced by "GO TO 200" resulting in a 
transfer to absolute address 200 in memory. 

l^i Predeclared Variables and Procedures. 

The LENGTH and LAST forms described previously are 
called built in procedures. A number of additional 
predeclared variables and procedures are described in this 
section, which are intended to ease the programming task. 

It should be noted that these variables and procedures 
are assumed to be declared at an outer^encom pas sing block 
level which is invisible to the programmer. Thus, 
declarations of variables and procedures with identical 
names within the program override the predeclared names. 

16.1- Condition Code Variables. There are four 
variable names in PL/M which can be used to test the 
condition codes in the MCS-8 CPU. These names are 

CARRY ZERO SIGN PARITY 
Any occurrence of one of these variables generates an 
immediate test of the corresponding condition code flip-flop 
for a true condition (value is 1). The use of these 
variables is somewhat iirplementation-dependent , and is 
described more completely in the section en PL/M system 
notes. In any case, these variables cannot be used as the 
destination cf an assignment. 
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16.2- The MEMOEY Vector. It is often useful to 
address the area of memory following the last variable 
allocated in a particular program. PL/M provides this 
facility by automatically inserting the declaration 

DECLARE MEMOEY (0) BYTE; 
as the last declaration in every program. 

As an example, consider the following program. This 
program assumes it will execute on a machine with 10 pages 
(2560 bytes) of memory. The program initializes all 
remaining space after the program variable storage to 1*s. 
BECLAEE SIZE LITEEALLY '2559», 
I ADDRESS; 

DO I = .MEMORY TO SIZE; 
MEMORY(I - .MEMORY) = 1; 
END; 
EOF 

16.3. The TIME Procedure. A built-in procedure, 
called TIME, is provided in PL/M for waiting a fixed amount 
of time at a particular point in the program. The form of 

the call is 

CALL TIME (expression) ; 
where the expression evaluates to a byte quantity n between 
1 and 255. The wait time is measured in increments of 100 
usee; hence, the total time-out for a value n is 

n (100 usee) . 
Thus, the call to TIME shown below results in a 4500 usee 
(4.5 msec) time-out 

CALL TIME (45) ; 

Since the maximum time-out is 255*100 usee = 25500 usee 
= 25.5 msec, longer wait periods are affected by enclosing 
the call in a loop. The following loop, for example, takes 
1 second to execute 

DO I = 1 TO 40; 
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CALL TIME (250) ; 
END; 

16.4. Type Transfer Procedures. Two built-in 
procedures are provided in PL/M to convert ADDRESS values to 
BYTE values. The procedure calls take the forms 

LOW (expression) and HIGH (expression) 
The LOW procedure returns the low-order byte of a double 
byte value, while the HIGH procedure returns the high-order 
byte. Either call can be used wherever a byte expression is 
valid in PL/M. 

16.5. Bit Manipulation Procedures. Four procedures 
are provided in PL/M for shifting and rotating expressions. 
These procedure calls take the forms 

SHL (expressioni, expression2) ; 

SHR (expression1,expression2) ; 

ROL (expressions ,expression2) ; 

ROS (expressions, expression2) ; 
In these cases, expressioni can be either byte or double 
byte, but expression2 and expressions must be single byte 
values. 

The SHL and SHR procedures shift expressioni to the 
left or right by an amount given by expression2, 
respectively. The precision of the result is the same as 
that of expressioni. Note that the value of expression2 
must be greater than zero. 

The value of SHL (1000$00 1 1B, 2) , for example, is the 
byte value 00001100B. The call SHR (1 $0000$1 100B, 1) results 
in the double byte value 0$1 000$01 10B. 

The ROL and ROE procedures rotate the value of the byte 
expressions to the right or left by an amount given by 
expression2, respectively. Again, expression2 must be 
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greater than zero. Both procedures always return a byte 
value. The value of EOL (101 1 $000B,2) is 1100$0010B, and the 
value of ROR (1111$0000B,8) is 1111$0000B. 

The SHL, SHR , ROL, and ROR calls can appear anywhere a 
PL/M expression is allowed. 

16.6. I/O Processing. The built-in procedure INPUT 
and built-in variable OUTPUT were introduced earlier. In 
general, the input call takes the form 

INPUT (constant) 
where the constant is in the range to 7. The effect of 
the call is to read the input port designated by the 
constant. The result of the call is the byte value latched 
into the port. The call to INPUT can appear as a part of 
any valid PL/M expression. 

The pseudo-variable OUTPUT can only be used as the 
destination cf an assignment. The form is 

OUTPUT (constant) = expression; 
where the constant is in the range to 23. The value of 
the expression is latched into the output port designated by 
the constant. 

This section completes the tutorial introduction to 
PL/M. The section which follows provides more detailed 
discussion of the individual statements and constructs of 
PL/M. 
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III. A FORMAL APPROACH TO PL/M. 
(Section III is currently incomplete. The BNF description of PL/M is included, however, for reference purposes.) 
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<PRQGRAM> ::= <STATEMENT LIST> 
< STATE ME NT LIST> :: 



<STATEMENT> ::= 
! 

<BASIC STATEMENT> 



<IF STATEMENT> 

<IF CLAUSE> : 
<TRUE PART> : 
<GROUP> ::= 
<GROUP HEAD> 



::= <STATEMENT> 

I <STATEKENT LIST> <STATEMENT> 

<BASIC STATEMENT> 
<IF STATEME,NT> 

= <ASSIGNMENT> ; 
<GROUP> ; 

<PROCEDURE DEFINITION> ; 
<RETURN STATEMENT> ; 
<CALL STATEMENT> ; 
<G0 TO STATEMENT> ; 
<DECLARATI0N STATEMENT> ; 
HALT ; 

<LABEL DEFINITION> <BASIC STATEMENT> 

<IF CLAUSE> <STATEMENT> 
I <IF CLAUSE> <TRUE PART> <STATEMENT> 
I <LABEL DEFINITION> <IF STATEMENT> 

::= IF <EXPRESSION> THEN 

: := <BASIC STATEMENT> ELSE 

<GROUP HEAD> <ENDING> 

::= DO ; 

I DO <STEP DEFINITION> ; 

1 DO < WHILE GLAUS E> ; 

I DO <CASE SELECTOR> ; 

I <GROUP HEAD> <STATEMENT> 



<STEP DEFINITION> 
<ITERATICN CCNTROL> 



<VARIABLE> <REPLACE> <EXPRESSION> <ITERATI0N CONTROL> 



<T0> <EXPRESSION> 

<T0> <EXPRESSION> <BY> <EXPRESSION> 



<while clause> 
<case'selector> 



:= <WHILE> <EXPRESSI0N> 
::= CASE <EXPRESSION> 



<PR0CEDURE DEFIMTI0N> 
<PRGCEDURE HEAO :: = 



<PR0CEDURE NAME> 
<PARAMETER LIST> 
<PARAMETER HEAO 



::- <PR0CEDURE HEAD> <STATEMENT LIST> <ENDING> 

<PROCEDURE NAME> ; 
<PR0CEDURE NA(ME> <TYPE> ; 
<PR0CEDURE NAME> <PARAMETER list> ; 
<PR0CEDURE NAME> <PARAMETER list> <type> ; 

<label definition> procedure 
<PARAMETER head> <identifier> } 
( 



I <parameter head> <identifier> , 



<ending> 



END 

end <identifier> 

<label definition> <ending> 



<LABEL DEFINITrON> 

<return statement> 

<call statement> 
<go to statement> 



::= <IDENTIFIER> : 
I <NUMBER> : 

::= RETURN 

1 RETURN <EXPRESSION> 

:= CALL <VARIABLE> 

::= <G0 T0> <IDENTIFIER> 
I <G0 T0> <NUMBER> 



GO TO 
GOTO 



<G0 T0> : : 
<DECLARATION STATEMENT> 
<DECLARATION ELEMENT> 



:== DECLARE <DECLARATION ELEMENT> 
I <DECLARATION STATEMENT> , <CECLARATION ELEMENT> 

<TYPE DECLARATION> 
<IOENTIFIER> LITERALLY <STRING> 
<IDENTIFIER> <DATA LIST>. 



<DATA LIST> ::= <DATA HEA0> <CONSTANT> ) 

<DATA HEAD> ::= DATA ( 

I <DATA HEAD> <CONSTANT> , 



<TYPE DECLARATION> 



::= <IDENTIFIER SPECI FICAT I0N> <TYPE> 
<BOUND HtAD> <NUMBER> ) <TYPE> 
<TYPE DECLARATION> <INITIAL LI ST> 
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<TYPE> 



BYTE 

ADDRES: 

LABEL 



<BCUND HEAD> ::= <IDENTIFIER SPE CI F I C AT I 0N> ( 
<IDENTIFIER S P EC I F ICAT I 0N> :: 



<VARIABLE NAME> 

<1DENTIFIER LIST> <VARIAELE NAME> ) 



<IDENTIFIER L I ST> 

<VARIABLE NAME> 

<BASED VARIABLE> 
<INITIAL LIST> : 
<INITIAL HEAD> : 

<ASSIGNMENT> ::= 

<REPLACE> ::= = 
<LEFT PART> 
<EXPRESSION> 



**| <IDENTIFIER LIST> <VARIABLE NAME> t 

:= <IDENTIFIER> 
i <BASED VARIABLE> <IDENTIFIER> 

::= <IDENTIFIER> BASED 

;= <INITIAL HEAD> <CONSTANT> ) 

:= INITIAL ( . ^ 

1 <INITIAL HEAD> <CONSTANT> , 

<VARIABLE> <REPLACE> <EXPRESSION> 
<LEFT PART> <ASSIGNMENT> 



;= <VARIABLE> , 

;:= <LOGICAL EXPRESSION> ...r,.,^ 

I <VARIABLE> : = <LOGICAL EXPRESSION> 



<LOGICAL EXPRESSION> 

<LOGICAL FACTOR> ::= 

<LOGICAL SECONCARY> 

<LOGICAL PRIMARY> ::= 

<RELATION> ::= = 
< 
> 

< > 

< = 
> = 

<ARITHMETIC EXPRESSION> 



'" <LOGICAL EXPRESSION> OR <LOGICAL FACTOR> 
<LOGICAL EXPRESSION> XOR <LOGICAL FACTOR> 

<LOGICAL SECONDARY> 

<LOGICAL FACTOR> AND <LOGICAL SECONDARY> 



= <LOGICAL PRIMARY> 

I NOT <LOGICAL PRIMARY> 

<ARITHMETIC EXPRESSION> <RELATION> <ARITHMETIC EXPRESS 10N> 



<TERH> ^^r...^ 

<ARITHMETIC EXPRESSION> + <TERM> 

<ARITHMETIC EXPRESSION> - <TERM> 

<ARITHMETIC EXPRESSION> PLUS <TERM> 

<ARITHMETIC EXPRESSION> MINUS <TERM> 
- <TERM> 



<TERM> 



<PRIMARY> 



<PRIMARY> 

<TERM> * <PRIMARY> 
<TERM> / <PRIMARY> 
<TERy> MOD <PRIMARY> 



<CONSTANT> 

. <CONSTANT> 

<CONSTANT HEAD> <CONST ANT> ) 

<VARIA3LE> 

, <VARIABLE> 

{ <EXPRESSION> ) 



<CONSTANT HEAD> 
<VARIABLE> ::= 
< SUBSCRIPT HEAO 
<CCNSTANT> ::= 



• •= ( 

**| <CONSTANT HEAD> <CONSTANT> » 

<IDENTIFIER> ^ ^^ , 

<SUBSCRIPT HEAD> <EXPRESSION> ) 

: := <IDENT IFIER> ( 

I <SUBSCRIPT HEAO <EXPRESSION> 



<STRING> 
<NUMBER> 



<T0> :; 
<BY> : 
<WHILE> 



TO 
BY 
: := WHILE 
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IV* COMPILING AND DEBUGGING PL/M PROGRAMS* 

This section discusses procedures for compiling and 
debugging PL/M programs. A complete compilation of a PL/M 
program is performed in two distinct parts: the first 
phase, referred to as PLM1, scans the source program, and 
produces an intermediate form. The second phase, called 
PLM2, accepts this intermediate form and produces the 
machine code for the MCS-8 CPU, All errors in program 
syntax are detected in PLM1 . 

The debugging process begins following successful 
compilation of a PL/M program. This debugging phase 
consists of an execution of INTERP/8 which accepts the 
machine code produced by PLM2 and simulates the actions of 
the MCS-8 CPU. INTERP/8 has a number of facilities which 
allow monitoring of CPU action, allowing symbolic and 
absolute reference to machine code and variable storage 
locations (see Appendix III of the INTEL publication "MCS-8 
Micro Computer Set 8008 Users Manual") These three phases 
are described in detail in the sections which follow. 

Ji RL^l Operating Procedures. 

The first pass of the PL/M compiler scans the source 
program, and detects improperly formed declarations and 
statements. A listing of the source program can be obtained 
during this pass. Errors are listed by line number whether 
the source listing is produced or not. An error message 
produced by PLM1 takes the form: 

(nnnnn) ERROR m NEAR s 
The number nnnnn corresponds to the line where the error 
occurred, s is a symbol on the line near the error, and m 
corresponds to the particular error message as given in 
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r iy ure ± v- i . 

Before discussing the files referenced by PLM1 , it is 
necessary to present the file naming scheme used throughout 
the three programs PLM1, PLM2, and INTEEP/8. These three 
programs are written in ANSI standard FORTRAN with the 
intention of being as independent from the host computer as 
possible. Thus, only a few assumptions can be made about 
the physical input and output devices or FORTRAN logical 
unit numbers and corresponding file names used in any 
particular implementation. Instead, these three programs 
use an internal file numbering scheme which is consistent 
between the three programs, but which may differ in terms of 
FORTRAN logical units from installation to installation. 
The machine-independent approach here is to give the file 
numbering in terms of devices types, and allow any 
particular implementation to assign the most convenient 
FORTRAN units. 

The file numbers used throughout PLM1, PLM2, and 
INTERP/8, along with the corresponding device types, are 
shown in Figure IV-2. Two examples of FORTRAN unit number 
assignments for the PDP-10 and IBM System/^eO computers are 
shown in Figure IV-3. 

A number of compiler control switches are used during 
the execution of PLMI to control I/O based upon this file 
numbering scheme. Additional switches are provided to 
control other compile-time functions during this pass, as 
given below. Compiler control switches come in two forms: 
compiler toggles, and compiler parameters. Compiler toggles 
can take on only the values and 1 (generally specifying an 
"on" or "off" condition) , while compiler parameters can be 
any non-negative value. 

A compiler switch is specified to PLM1 by typing a line 



52 



ERROR MESSAGE 

NDMprp 



■i THE SYMI50LS PRINTED BELOW HAVE BEEN USET IN THE CURREU 9L0CK 

BUT DO NOT aP°EAR IN A DECLARE STATEMENT, OR LABEL AP^TARS M 
A GO TO STATEMENT BUT DOES NOT APPEAR IN THE BLOCK. 

? PASS-1 COMPILER SYMBOL TABLE OVERELOW. TOO MANy SYMRQLS JN 

THE SOURCE PROGRAM. EITHER REDUCE THE NiJMBER OF VARIaRl'^S U 
THE PROGRAM, OR RE-COMPILE PASS-1 WITH A LARGER SYMgiL TAILF. 

3 INVALID PL/M STATEMENT. THE PAIR OF SYhROLS PRINTED 3KlO^ 
CANNOT APPEAR TOGETHER IN A VALID PL/M STATEMENT (THIS ^P=?OR 
MAY HAVE BEEN CAUSED BE A PREVIOUS ERROR IN THE PROG-fAM). 

4 INVALID PL/M STATEMENT. THE STATEMENT IS lyPROPEf^LY '^^.■'''^D-- 
THF PARSE TO THIS POINT FOLLOWS (THIS Hi" HAVE OCCiHt^^Zn ^L!- 
CAUSE OF A PREVIOUS PROGRAM ERROR>. 

5 PASS-1 PARSE STACK OVERFLOW. THE FR0GP4M STATEME^!Ts A,?r 
RECURSIVELY NESTEn TOO DEEPLY.- EITHER ■^!"!Pi_IFY Tuc; ^^Tnr^-..,-, 
STRUCTURE, OR RE -COMPILE paSS-1 WITH A Li-'GER PARSE ^ITfJI-. . 

6 NUMRER CONVERSIOr-' ERROR. THE NUMBER EITHER EXCEEDS 65--v?5 0^ 
CONTAINS DIGITS WHICH CONFLICT WITH THE RADIX INOtCATiM. 

7 PASS-1 TABLE OVERFLOW. PROBABLE CaL'SE 15 i CCNSTA^T 'U-'l^Q 
WHICH IS Too LONG. IF SO, THE STRING SHOJIJJ ^^ w^ITTr-, ,, ^ ^ 

sequence of shorter strings, separated cr commas. t'h^ ^1,' ' se , 
re -compile pass-1 with a larger varc taple. 

8 macro table overflow. too many literally oecl ar at i o'js . 
either reduce the number of literally nrc! a rat i oms , op rf,- 
cnmdile pass-1 with a larger 'macros' tarle. 

9 invalid constant in initial. data, or im-lime constj-it. 
precision of constant exceeds two bytes (may bf internal 
pas«;-i c'^'ipileR error). 

10 invalid program. program syntax incorrfc^ for te'^'i pja t i uf'i 
of program. may be due to previous errors yhlch occ i^pi^d 
mithin the program. 

11 INVALID PLACEMENT QF A PROCEDURE DECLARATION WITHIN THE PL/M 
PROGRAM. PROCEDURES MAY ONLY BE DECLARED IN THE OUTER BLOCK 
(MAIN PART OF THE PROGRAM) OR WITHIN DO-ENO GROUPS (NOT 
ITERATIVE DO'S, DO-WHILE'S. OR DO-C»SE'S). 

12 IMPROPER USE OF IDENTIFIER FOLLOWING AN END STATEMENT. 
IDENTIFIERS CAN ONLY BE USED IN THIS WAY Tn CLOSE A P.^OCEDURE 
DEFINITION. 

13 IDI^NTIFIER FOLLOWING AN END STATEMENT nOES NOT MATCH THE NAME 
Qr THE PROCEDURE WHICH IT CLOSES. 

14 DUPLICATE FORMAL PARAMETER NAME IN a PROCEDURE HEADI^JG. 

15 IDENTIFIER FOLLOWING AN END STATEMENT CANNOT BE FOUND IN THE 
PROGRAM. 

16 DUPLICATE LABEL DEFINITION AT THE SAME BLOCK LEVEL. 

17 NUMERIC LABEL EXCEEDS CPU ADDRESSING SPACE. 

18 INVALID CALL STATEMENT. THE NAME FOLLOWING THE CALL IS NOT 
A PROCEDURE. 

19 INVALID DESTINATION IN A GO TO. THE VALUE MUST 3E A LABEL 
OR SIMPLE VARIABLE. 

20 MACRO TABLE OVERFLOW (SEE ERROR f ABOVE). 

21 DUPLICATE VARIABLE OR LABEL DEFINITION. 

22 VARIABLE WHICH APPEARS IN A DATA DECLARATION HAS BEEN PRE- 
VIOUSLY DECLARED IN THIS BLOCK 



Figure IV-1» PLMl error messages issued during the first 
pass, 
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23 PA?S-1 SYMBOL TABLE OVERFLOW (SEE ERROP ? ABPVE). 
?4 INVALID USE or AN IDENTIFIER AS A VARIABLE NAMr. 

25 PASS-1 SYMBOL TABLE OVERFLOW (SEE ERROR 2 ABOVE). 

26 IMPROPERLY FORMED BASED VARIABLE DECLARATION. THE FORM iS 

I BASED J. WHERE I IS AN IDENTIFIER NOT PREVIOUSLY DECLARED 
IN THIS BLOCK. AND J IS AN ADDRESS VARIABLE. 

27 SYMBOL TABLE OVERFLOW IN PaSS-1 (SFE ERROR 2 ABOVE). 



28 INVALID ADDRESS REFERENCE. THE DOT OPERATOR MAY ONLY 
PRECEDE SIMPLE AND SUBSCRIPTED VARIABLES IN THIS CONTEXT. 

29 UNDFCLAREO VARIABLE. THE VARIABLE MUSt APPEAR IN A O^^CLARE 
STATEMENT BEFORE ITS USE. 

30 SUBSCRIPTED VARIABLE OR PROCEDURE CALL RE^ERFNCES AN UN- 
DECLARED IDENTIFIER. THE VARIABLE OR opQrjEoURF MUST qp 
DECLARED BEFORE IT IS USED. 

31 THE IDENTIFIER IS IMPROPERLY USED AS A PROCEDURE OR SUR- 
SCRIOTFO VARIABLE. 

32 TOO MAMY SUBSCRIPTS IN A SUBSCRIPTEP VaR'ABLE REFERENCE. 
PL/M ALLOWS ONLY ONE SUBSCRIPT. 

33 ITERATIVE DO INDEX IS INVALID. IN TmE FORM '00 I = El TO f2' 
THE VARIABLE I MUST BE SIMPLE ( UNSUBSCR I PlED ) . 

34 ATTEMPT TO COMPLEMENT A 5 CONTROL TOG&i ^ WmeRE ThE ToGGLf 
CURRENTLY HAS A VALUE OTHER THAN '/. OR 1. USF THE '= N' 
OPTION FOLLOWING THE TOGGLE TO AVOID THIS rr<ROR. 

35 INPUT FILE NUMBER STACK OVERFLOW. RE-COmPilE PA<^S-1 WUh 
A LARGER INSTK TABLE. 

36 TOO Many block levels in the PL/M program. l1T;-iER SiMPLTFY 
YOUR PROGRAM (3P5 BLOCK LEVELS ARE CURRENTLY ALLOWED) OR 
RE-COMPILE PASS-1 WITH A LARGER BLOCK TABLE. 

37 THE NUMRER OF ACTUAL PARAMETERS IN THE CALLING SEQUENCE- 
IS GREATER THAN THE NUMBER OF roRMAL PARAMETERS DECLARrr 
FOR THIS PROCEDURE. 

38 THE NUMBER OF ACTUAL PARAMETERS IN THE CALLING SEQUENCE 
IS LESS THAN THE NUMBER OF FORMAL PARAMETPf<S DECLARED 
FOR THIS PROCEDURE. 



Figure IV-1 (Con't) 
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Figure IV- 2. 



Symbolic Device Assignments for PLMl, PLM2, 
and INTERP/8. 
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PaSS-1 i^ile dei^initions 







POP-lt! 










INPUT 






OUTPUT 




n;UM 


OEVICE 


UNIT 


NUM 


DEVICE 


UMI 


1 


TTY 


5 


1 


TTY 


5 


2 


COR 


2 


2 


PTR 


3 


3 


PAP 


6 


3 


PAP 


7 


4 


MAG 


16 


4 


MAG 


17 


5 


DEC 


9 


■5 


DEC 


12 


6 


DISK 


2iJ 


6 


DISK 


22 


7 


DISK 


21 


7 


DISK 


2? 



IBM S/360 (CP/CmS) 





INPUT 








OUTPUT 




MU" 


TEVICE 




UNIT 


m» 


DEVICE 


UNIT 


1 


TTV 30 




5 


1 


TTY 12.^ 


b 


2 


CDP 9i3 




10 


2 


PTR 133 


& 


3 


TAP 3i3 




11 


3 


PU^ 80 


7 


4 


TAP 140 




9 


4 


TAF 133 


12 


5 


OSK *^0- 


Lt1 


13 


5 


DSK 62-1.0 


13 


6 


nSK 90 




1 


6 


DSK 80 


3 


7 


DSK Sf) 




2 


7 


DSK 80 


4 




PASS- 


-2 FILE 


DEFICIT IONS 










PDP- 


10 








INPUT 








OUTPUT 




U\!^ 


DEVICE 




UN I T 


^lUM 


DEVICE 


UNIT 


1 


TTY 




5 


1 


TTY 


5 


2 


COR 




2 


? 


PTR 


3 


5 


PAP 




6 


-^ 


PAP 


7 


4 


MAG 




16 


4 


^'AG 


17 


5 


Drc 




9 


T 


Dec 


l'£ 


6 


DISK 




22 


6 


DISK 


22 


7 


DISK 




23 


7 


DISK 


?1 






IRM S/36?j 


(cp/cms) 








HJPUT 








OUTPUT 




MU'^ 


DEVICE 




UNIT 


MUM 


DEVICE 


UNIT 


1 


TTY 30 




5 


1 


TTY l20 





2 


Ci~i» g? 




10 


2 


PTR 133 


a 


3 


TAP 80 




11 


3 


PU" 80 


7 


4 


TAP 140 




9 


4 


TAP 133 


l2 


5 


DSK 30- 


L0 


13 


5 


DSK 80-L0 


13 


6 


D?K 80 




■» 


6 


DSK 80 


1 


7 


DSK 80 




4 


7 


DSK 80 


? 



Ai.L INPUT RECORDS ARE 80 CHARACTERS OR LESS. ALL 
OUTPUT RECORDS ARE 120 CHARACTERS OR LESS. 
THE FORTRAN UNIT NUMBERS CAN BE CHANGED IN THE 
SUBROUTINES GNC AND WRITEL (THESE ARE THE ONLY OC- 
CURRENCES OF REFERENCES TO THESE UNITS). 



Figure IV-3. PDP-10 and IBM System/360 real device assignment 
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of input with a "$" in column 1, and a switch name starting 
in column 2 (only the first character of the switch name is 
significant, and the remaining characters may be omitted) . 
In the case of compiler parameters (and, optionally compiler 
toggles) , the switch name is followed by an equal sign (=) 
and an integer value. A compiler toggle with the equal sign 
and number omitted is complemented (a becomes a 1, and a 1 
changes to a 0) . Compiler switches are not printed in the 
source listing- 

The most commonly used compiler switches for PLMi are 
listed in Figure IV-4, along with their default values. 
Note that compiler toggles are listed in Figure IV-4 without 
the "= n" option although it is understood that either "= 1" 
or "= 0" is acceptable. Compiler parameters are listed in 
the Figure with the "= n" part following the switch name. 
The value of n is assumed to be in the proper range. 
Finally, note that the default values shown here are those 
provided by INTEL in the distribution version of the system 
and assume a batch processing environment. Any particular 
implementation may have differing default values (e.g., 
values may assume a time-sharing mode of processing) , and 
thus the local installation should be consulted. 

The operation of the first pass can now be described. 
PLM1 begins by reading the input file number which is 
defaulted by the lINPUT switch. Normally, this switch 
defaults to the card reader if operating in batch mode, and 
to the terminal if operating in interactive mode, 
subsequent switches in the primary file can be used to 
change these default values, if necessary (e.g., reset the 
left or right margin, or change to an alternate input file) . 
The first pass normally creates a listing file on output 
file number 2, an intermediate symbol table on file 6, and 
an intermediate code file on file 7. 
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Switch Name 
$ANALYZE 

$ COUNT = n 
$DELETE = n 



$EOF 
$GENERATE 

$ INPUT = n 

$LEFTMARGIN=n 

$MEMORY 



$OUTPUT = n 

$ PRINT 
$RIGHTMARGIN=n 

$ SYMBOLS 

$TERMINAL 
$V7IDTH = n 



Use 



Default 




Controls the PL/M syntax analysis 
trace. 

Start the line numbering at line n. 

Delete all trailing characters in 120 
the output after position n. 

End-of-file on this unit. 

Interlist the intermediate language 
generated by Pass 1. 

Switch to file n for subsequent 1 
input (see PL/M file numbering) . 

Ignore all characters before column 1 
n in the input lines. 

Include a sym.bol table in the ENPF 
tape produced by Pass 2 showing the 
memory address assignments for 
variables, labels, and procedures. 

Write subsequent output lines to 1 
file n (see PL/M file numbering) . 

Print output lines (batch mode) . 1 

Ignore all characters in the input 72 
lines beyond position n. 

Print a symbol table dump at the end 
of Pass 1. 

Interactive processing mode. 

Set output line width to n charac- 72 
ters. 



NOTE: The input lines are a maximum of 80 characters, 
and the output lines cannot exceed 120 characters. 



Figure IV-4. PLMl "$" compiler switches 
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It should be noted that in an interactive mode, PLM1 
starts by reading the progammer' s console. At this point, 
the programmer could type the program directly at the 
console into PLM 1 . It is usually the case, however, that 
the programmer first composes his program using the 
time-sharing system's text editor. When PLM1 reads the 
console for the first line of input, the programmer 
redirects the PLM1 input to the disk file containing the 
edited program using the $INPUT = n compiler switch, where n 
is one of the input file numbers correspinding externally to 
the edited program. 

The output from PLM1 can be directed to the 
programmer's console, or to another device such as a disk 
file or line printer using the $OUTPUT compiler switch 
placed in the input stream. If the programmer selects the 
console as an output device, it is often useful to set 
$TEEMINAL = 1 which automatically lists only the error 
messages at the terminal- The programmer then uses the line 
numbers, along with the time-sharing system editor to locate 
the errors and change the source program in preparation for 
recompilation. In this way, a source listing of the program 
need never be generated during the first pass. The program 
is listed as the compilation proceeds if the $TERMINAL 
toggle is zero. 

A practical approach to development of large PL/M 
programs is to write the program in terms of a number of 
independent procedures. Each of these procedures can be 
compiled and debugged separately, and, after all procedures 
are checked-out, the entire program can be compiled. 

As an example, consider the program shown in Figure 
IV-5. In this case, a procedure is shown, called INDEX, 
which performs a comparison of two character strings to 
determine if the second string occurs as a substring in the 
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AT 



^MEMORY = 1 

/* THE INDEX PROCEDURE SEARCHES THE STPIMG STAPTfMn 
•A* FOR AN OCCURRENCE OF THE STRING STARTING AT 'b» 
INDEX RETURNS A ZERO IF THE SECOND STRING IS mot A SUB- 
STRING OF THE FIRST; OTHERWISE, THE POSITION OF THE 
SECOND STRING IS RETURNED. THE CHARACTER POSITIONS AR^ 
COUNTED STARTING FROM 1 AND ENDING AT 255. */ 

DECLARE EOS LITERALLY 'OFFH'; 

/* THE LABELS LO ... L5 AND CI ... C3 ARE PRESENT FOR DFRUCniNG 
PURPOSES ONLY, AND CAN BE REMOVED WITHOUT AFFECTING THE PROGRAM 
EXECUTION */ 
INDEX: PROCEDURE (A,B) BYTE; 



LO 



LI 

L2 
L5 



Ik 



L5 



DECLARE (A,B) ADDRESS, 

(SA BASED A, SB BASED B, J,K,L,M) BYTE; 

J = 0; 

DO WHILE SA(J) <> EOS; 
K = 0; 

DO WHILE (L:=SA(J+K)) = (M:=SB(K)); 
IF L = EOS THEN RETURN J+1; 
K = K + 1; 
END; 
J = J + 1; 

IF M = EOS THEN RETURN J; 
END; 
RETURN 0; 
END INDEX; 



/* TEST THE INDEX FUNCTION */ 
DECLARE Q DATA ( 'WALLAWALLAWASH' , EOS ) , 
BYTE; 
LE 1; 

= INDEX(.Q,.('V;ALLA',E0S)); 
NDEXC. ('WALLA', EOS), .Q); 
= INDEX(.a,.('WASH',EOS)); 



EOF 



(I, J) 

DO WH 
CI 



C2 
C3 

END; 



I = 



Figure IV- 5. A card- image listing of the INDEX procedure 
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first string, as described in the comment preceding the 
procedure declaration. The last part of the program 
(following the declaration of Q) is present only to test the 
INDEX procedure and will be removed when INDEX is imbedded 
within a larger program. Note that this test section 
includes three sample calls on INDEX which are repeated 
indefinitely. The labels LO through L5 within INDEX are 
used only during the debugging phase, and have no effect 
upon program execution. In fact, these labels may be 
removed after the INDEX procedure is checked-out to avoid 
later confusion as to the purpose of the labels. 

Figure IV~6 shows a sample execution of PLM1 using the 
above source program as input. The exact manner in which 
PLM1 is started on any particular computer is, of course, 
ifliplementation dependent. A number of particular systems 
are considered, however, in Section IV-4. The particular 
example shown in Figure IV-6 resulted from execution of PLM1 
on an IBM System/360 under the CP/CMS time-sharing system 
using a 2741 console. Thus, all lines shown in lower case 
in this example, and examples which follow, are typed by the 
programmer, while upper case lines are output from the 
program being executed. The PLM1 output shown in this 
figure indicates that the program is syntactically correct, 
the intermediate files have been written, and the second 
pass can te initiated. 

2^ £112 0£^ratin£ Procedures,. 

As mentioned previously, PLM2 performs the second pass 
of the PL/M compilation by reading the intermediate files 
produced through execution of PLM1. PLM2 then generates 
machine code for the MCS-8 CPU. 

Error messages produced by PLM2 are of the form 

(nnnnn) ERROR m 
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PASS-i 

nirL^*^^"^^^ "^^ ^°'^ ^"'^ printer listing, $t=l for no Hstfnp) 

00001 2 /* THE IMHFX PROCEnURr SEAPTHES THE STRirO STApfim AT 

00002 2 'A* FOR AN OCCURRENCE OF THE STRING STAPT|^'^ AT 'R'. 

00003 2 INDEX RETURNS A ZERO IF THE SECOND STR I MP IS r'OT A SHR- 
OOOOtt 2 STRING OF THE FIRST; OTHERWISE, THE POSITION OF THE 
00005 2 SECONP STRING IS RETURNEP. THE CHARACTER POSITIONS ARE 
00005 2 COUNTED STARTING FROM 1 AND ENDING AT 255. */ 

00007 2 DECLARE EOS LITERALLY 'OFFH'; 

00008 2 /♦ THE LABELS LO . . . L5 AND CI . . . C3 ARE PRESENT FOP PEBUGGI 
NG 

00009 2 PURPOSES ONLY, AND CAN BE REMOVED WITHOUT AFFECTING THE PROG 
RAM 

00010 2 EXECUTION */ 

00011 2 INDEX: PROCEDURE (A,B) BYTE; 

00012 3 LO: DECLARE (A,B) ADDRESS, 

00013 3 (SA BASED A, SB BASED B, J,K,L,M) BYTE; 
OOOltt 3 J = 0; 

00015 3 LI: DO WHILE SA(J) <> EOS; 

00016 3 K = 0; 

00017 k L2: DO WHILE (L:=SA(J+K)) = (M:=SB(K)); 

00018 J* L3: IF L = EOS THEN RETURN J + 1; 

00019 5 K = K + 1; 

00020 5 END; 

00021 k J = J + 1; 

00022 k Ih: IF M = EOS THEN RETURN J; 

00023 I* END; 

00024 3 L5: RETURN 0; 

00025 3 END INDEX; 

00026 2 

00027 2 /* TEST THE INDEX FUNCTION */ 

00028 2 DECLARE Q DATA ( ' WALLAWALLAWASH ' , EOS), 

00029 2 (I, J) BYTE; 

00030 2 DO WHILE 1; 

00031 2 CI: I = INDEX(.Q,. {'WALLA', EOS)); 

00032 3 C2: I = I NDFX( . ( 'WALLA' , EOS), . Q) ;. 
00053 3 C5: I = I NDEX( . Q, . ( 'V.'ASH' , EOS ) ) ; 
0003t> 3 END; 

00035 2 EOF 
NO PROGRAM ERRORS 

Figure IV- 6. Listing produced by PLMl for the INDEX procedure 
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where nnnnn references the line in the source prograir where 
the error occurs, and m is an error message number, 
corresponding to those given in Figure IV-7. 

Operation of the second pass is particularly simple. 
PLK2 begins by reading the card reader (batch mode) or 
console (time-sharing mode) and will accept any number of 
«»$" switches as input. These switches set the second pass 
compiling parameters shown in Figure IV-8. PLn2 continues 
to read these switches until one blank line is encountered. 
At this point, PLM2 reads the intermediate files produced by 
PLM1 and generates the MCS-8 machine code. 

As in the case of PLMi, the exact manner in which the 
PLM2 program is initiated is implementation dependent, and 
will be discussed for some particular systems in Section 
IV-4. 

Figure IV-9 shows the execution of PLM2 using the 
intermediate files produced by PLM1 for the INDEX procedure 
given previously. Figure IV-10 lists the BNPF machine code 
file which results from this execution of PLM2. Note that 
the machine code file is headed by a symbol table (caused by 
the $MEMCEY=1 entry during PLM1) which will be used by 
INTERP/8 during the debugging phase which follows. 

3^ 2l.29.L^E Check-out. 

Program verification is accomplished through the use of 
the MCS-8 CPU software simulator, called INTERP/8. The 
various commands available in INTERP/8 are described fully 
in the MCS-8 Users Manual. The PL/M program being 
checked-out is first compiled using PLM1 and PIM2, as 
previously described. In order to quickly locate errors in 
the source program, it is helpful to include the $MEM0RY=1 
toggle in PLM1 so that a symbol taDle is produced for the 
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ERROR MESSAGE 

NUMBER 



101 

102 

103 



^r'^Pcc^^ ^° STORAGE LOCATIONS OUTSIDE THE VIRTUAL MEMORY 
OF P4SS-2. RE-COMPILE PASS-2 WITH LARGER 'MEMORY' ARRAY. 



VIRTUAL MEMORY OVERFLOW. PROGRa" IS TOO LARGr TO COMPIiE 
WITH PRESENT SIZE OF 'MEMORY.' EITHER SHORTEN PROGRAM OR 
RECOMPILE PASS-2 WITH A LARGER VIRTUAL MEMORY. 

104 (SAME AS 103). 

105 STOGGLE USED IMPROPERLY IN PASS-2. ATTEMPT TO COMPLEMENT 
A TOGGLE WHICH HAS A VALUE OTHER THAN OR 1 . 

106 REGISTER ALLOCATION TABLE UNDERFLOW. MAY BE DUE TO A PRE- 

107 REGISTER ALLOCATION ERROR. NO REGISTERS AVAILABLE. MAY 
BE CAUSED BY A PREVIOUS ERROR. OR PASS-2 COMPILER ERROR. 

108 PASS-2 SYMBOL TAB.LE OVERFLOW. REDUCE NUMBER OF 
SYMBOLS, OR RE-COMPILE PASS-2 WITH LARGER SYMBOL TABLE. 

109 SYMBOL Table overflow (see error 103). 

110 MEMORY ALLOCATION ERROR. TOO MUCH STORAGE SPECIFIED IN 

THE SOURCE PROGRAM (16K MAX ON 80138). REDUCE SOURCE PROGRAM 
MEMORY REQUIREMENTS. 

111 INLINE DATA FORMAT ERROR. MAY BE DUE To IMPROPER 
RECORD SIZE IN SYMBOL TABLE FILE PASSED TO PASS-2. 

112 (SAME AS ERROR 107) . 

113 REGISTER ALLOCATION STACK OVERFLOW. EITHER SIMPLIFY THE 
PROGRAM OR INCREASE THE SIZE OF THE ALLOCATION STACKS. 

114 PASS-2 COMPILER ERROR IN 'LITAQD' — MAY BE DUE TO A 
PREVIOUS ERROR. 

115 (SAME AS 114) . 

116 (SAME AS 114) . 

117 LINE WIDTH SET TOO NARROW FOR CODE O'-'MP (USE ?WIDTH=N) 

118 (SAME AS 107) . 

119 (SAME AS 110) . 

120 (SAME AS 110, BUT MAY BE A PAS3-2 COMPILER ERROR). 

121 (SAME AS 108) . 

122 PROGRAM REQUIRES TOO MUCH PROGRAM AND Va^IA^LF STO=?Ar,r 
(PROGRAM AND VARIABLES EXCEED 16K). 

123 INITIALIZED STORAGE OVERLAPS PRFV I OUSL Y .1 N I T I AL I ZE j STORAGE. 

124 INITIALIZATION TABLE FORMAT eRROP. (SEE ERPOP 111). 

125 INLINE DATA ERROR. MAY HAVE BEEN CAUSED PY PREVIOUS F.RfJOR. 

126 BUILT-IN FUNCTION IMPROPERLY CALLED. 

127 INVALID INTERMEDIATE LANGUAGE FORMAT. (SEE ERROR 111). 

128 (SAME AS ERROR 113) . 



Figure IV-7. PLM2 error messages issued during the 
second pass. 
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129 INVALID use: OF BUILT-IN rUNCTION IN AN ASS I GMHFNT . 

130 PASS-2 COMPILER ERROR. INVALID VARIABLE PREClSlO:-J ('--'JT 
SINGLE BYTE OR DOUBLE BYTE). MA^ BE V.W. TO PPEVIO'.iS t-RRCR, 

131 LABEL RESOLUTION ERROR IN PASS-2 (MAY BE COMPILER ERhQr). 

132 (SAME AS 108) . 

133 (SAME AS 113) . 

134 INVALID PROGRAM TRANSFER (ONLY COMPUTED JUMPS ARE ALLOt^ED 
WITH A 'GO TO' ) . 

135 (SAME AS 134) , 

135 ERROR IN BUILT-IN FUNCTION CALL. 

137 (NOT USED) 

138 (SA^IE AS 1(57). 

139 ERROR In CHANGING VARIABLE TO ADDRESS REFERENCE. MAY 
SE A PASS-2 COMPILER ERROR. OR MAY BE CAUSED BY PRE- 
VOUS ERROR. 

140 (SAME AS 107) . 

141 INVALID ORIGIN. CODE HAS ALREADY BEF N GENERATED IN THE 
SPECIFIED LOCATIONS. 

14? A SYMBOL Table dump has been specified (using the smemory 

TOGGLE in PASS-1). BUT NO FILE HAS BFEN SPECIFIED TO DE- 
CEIVE THE BNPF TAPE (USE THE $BNPF=N CONTROL). 

143 INVALID FORMAT FOR THE SIMULATOR SYMgOL TABLE DUMP (SEE 

ERROR 111). 



Figure IV-7. (Con't) 
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Switch Name 



Use 



Default 



$ANALYZE = n 

$BNPF = n 

$COUNT = n 
$DELETE = n 
$EOF 
$FINISH 

$GENERATE = n 



$ HEADER = n 

$HniPUT = n 
$LEFT.MARGIN=n 

$ OUTPUT = n 
$PRINT 

$RIGHTiMARGIN=n 
$TERMINAL 

$VARIABLES == n 
$WIDTH = n 



Print a trace of the register alloca- 
tion stack if n=l. Include assigned 
registers if n = 2. 

Do not write a BNPF tape if n^O. Other- 
wise, write a BNPF tape to file n (see 
PL/M file numbering) . 

(Same as Pass 1) 

(Same as Pass 1) 

(Same as Pass 1) 

Print a decoded dump of the generated 
machine code at the finish of Pass 2. 

Print a cross reference of source line 
numbers verses machine code locations 
if n = 1. If n = 2, print a trace of 
the intermediate language as it is read, 
as well. 

Start machine code generation at loca- C 
tion n when producing a code dump or 
BNPF tape. 

(same as Pass 1) 

(same as Pass 1) 

Print a memory map showing symbol num- 
bers and address assignments at the end 
of Pass 2. 

(same as Pass 1) 

(same as Pass 1) 

(same as Pass 1) 

(same as Pass 1, default value suppresses 
the listing of the intermediate files as 
they are read) 

The first page of Random-access Memory 
(RAM) is page n (numbering 0, 1,...,63) 

(same as Pass 1) 



Figure IV-8. PLM2 "$" compiler switches 
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PASS-2 

Seenerate = 1 (cross reference line numbers and locations in code) 

$bnpf = 6 (write bnpf tape to internal file number 6) 

12=0005H 13=000EH 15=0011H 16=001EH 17 = 0026H 18=00iv3H 

i9=0067H 20=006DH 21=0071H 22=0077H 23=008UH 2U=0087H 

25=0089H 26=008AH 29=009CH 52=00A5H 53=00BFH 3U=00E1H 
35=00E6H 



Figure IV-9, Sample output from PLM2 corresponding to the 
INDEX procedure. 
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******** 

**********************-H,1,t1rt.n,n,ti,i,i,i,i,i^^,i, 
******** 



******************1,1,t*t******itii 
********1,*ir.t:-i,i,i,^^^ 



1 


CARRY 005G2 


2 


ZFRO 003G3 


3 


SiGN 003GI* 


k 


PARITY 00365 


5 


MCMORY 001+00 


19 


INHFX 00003 


20 


A 003GG 


21 


B 00370 


23 


LO 00016 


26 


J 00372 


27 


K 00373 


28 


L 00371* 


29 


M 00375 


51 


LI 00021 


35 


L2 0005U 


38 


13 00132 


Ul 


LU 00170 


U3 


L5 00207 


i»U 


00215 


1*6 


1 00376 


1*7 


J 00377 


50 


CI 00231* 


52 


C2 00265 


53 


C3 00316 



16 

21* 

32 

1*0 

1*8 

55 

61* 

72 

80 

88 

96 

101* 

112 

120 

128 

136 

11*1* 

152 

160 

168 

176 

181* 

19-2 

200 

208 

216 

221* 

232 



BNPNNMPNNF 

Bf'f;r!MfjrJNMr 

Pr'NPPNMNNF 

BflNPPNNNNF 

BflNNMNNNNF 

BPPPPPN'RNF 

nPf.'T'f.'MppPF 

BNNNNNNNNF 

BPPNMNPPPF 

BPNN'NNPPPF 

BrNPPNPPNF 

BNNPNPPPMF 

BPPNNMPPPF 

BPPPPNPPNF 

BNNNNNPPNF 

BPPPNPNMNF 

Br'NPPNPPNF 

BPPNNPNNNF 

BPNNNNPPPF 

BfJNMNNMNNF 

BPPNNNPPPF 

BPPPPPPNPF 

BNPPPMNNPF 

BNNNPNPNNF 

Br.'NNMNNNNF 

BNNNNPNNNF 

BNNNNMNNNF 

BNNNNPNNNF 

BMNNNNNNNF 

BPPPPPNPNF 

BNNPPNPPNF 

BPPPPPPPPF 

BNNPPNPPNF 

BNPNNNPNNF 

BNNNNNPPPF 
BNNNNNNNNF 
BNPNNPPNMF 
BNPNNPPNNF 
BNPNNNNNPF 
BNPNNNPNNF 
BNPNNNNNPF 
BPPPPPPPPF 
BNNNNNNNNF 
BNNNNNNNNF 
BNNPNPPPNF 
BPPPPPNNNF 
BNPNPNPPPF 
BNPNNNNNPF 
BNNNPNPPNF 
BNNPNNPPNF 
BNNNNNNNNF 
BPPPPPPPNF 
BNNNNNNNNF 
BNPNNPNNNF 
BNNNPNPPNF 
BNNPNNPPNF 
BfJNNNNNNNF 
BPPPPPPPNF 
BNNNNNNNNF 



BPNNNPNPNF 

pr;fippK'ppr;F 

PPPPPPflPNF 

BPPPPPPMNF 

Bf^NPHPPPNF 

RPPNTiriPPPF 

n?'f:PP?'i'Mf'r 

BPNNf.'PPPPF 

BNNNPNPNNF 

BNNNNNNNNF 

BPPPPPNPPF 

BNNNNNNNNF 

Br'NPPNNNNF 

BPNNNNPPPF 

BNNNNNNNNF 

BPPNNNPPPF 

BPPPPPPNMF- 

BPPNNNPPPF 

BNNPPNNNNF 

BPNNNPPPPF 

BNNPNPPPNF 

BPPPPPNNNF 

BNNNNNNNNF 

BPPPPPPPPF 

BNNPPNPPNF 

BPPNNNNNPF 

BNNPPNPPNF 

BPPPPPNNPF 

BNNPNPPPNF 

BPPNNPPPPF 

BPPPPPPNPF 

BNPNNPNNNF 

BPPPPPNPNF 

BNNNPNNNPF 

BNNNNNPPPF 
Br'PNPNPPPF 
BNPNNNNNPF 
BNPNNPPNNF 
BNPNPNNPPF 
BPNPNNPNPF 
feNPNNPPMNF 
BNNNNPPPNF 
BNNNPPPPMF 
BNPNNNPPMP 
BNNNNNNNNF 
BNPNNNPNNF 
BNPNNNNNPF 
BPPPPPPPPF 
BNNNNNNNNF 
BNNNNNNNNF 
Br'NPNPPPNF 
BPPPPPNNNF 
BNPNPNPPPF 
BPPPPPPPPF 
BNNNNNNNNF 
BNNNflNNMNF 
B^'NPNPPPNF 
BPPPPPNNrT 
PPPPPPPPPF 



BNNNNNNNNF 

BPPPPNPPNF 

BNNPP^'^'NNF 

BNNPPNNNNF 

nrriNNNNNNF 

Br'NPPf!PPr'F 

^,^p^lr•p^'^'NF 

BPPPPNNNPF 

BPPPPPPPPF 

Br'NPNPPPNF 

Br'NPPPPPMF 

BNrjPPNPPNF 

BPNNNNPPPF 

BNNPPNNNNF 

BPNNNPPPPF 

BNNPNPPPNF 

BPPPPPNNNF 

Br-'NPPNPPNF 

BPPNPNNNNF 

BPPPPNNPNF 

BNNNNNNNNF 

BPNNPNNNPF 

BfiNPPNNNPF 

BNPNNPNNNF 

BPPPPPNPNF 

BNNNNNPPPF 

BPPPPPNPPF 

BNPNNNPNNF 

BNNNNNNNNF 

BNNNr:PNNNF 

BPPNNNPPPF 

BPNNNNPNMF 

BPPf-'NNPPPF 

BNNNNNNNNF 

Br'PNNMPNNF 
BNPNNNNNPF 
BfiPNPNPPPF 

ENPr!Nr!riripF 

Br^PNNPNNNF 
BNNNNNNNNF 
BNPNNPPNNF 
BPNNNPPNPF 
BPf'NPPPPPF 
Br'fJNNNNPPF 
BNNPPNPPNF 
BPNpf'PPPNF 
er'PNNPPNNF 
Bf'NNNPPPNF 
BNNNPPPPNF 
PNPNNNPPNF 
t'.M^iNNNNNNF 
Br'PNNNPNNF 
BNPNNNNNPF 
BNNNNPPPNF 
Br'NNPPPPNF 
BNPNNNPPNF 
B^:NN^'NNNNF 
BNPNNNPNNF 



B'iNPNPP"NF 
'^.PPPPPNNPF 
BPPPPPfippF 
Bf'NPPPPPNF 

p.r'npr-NppNP 

BPPPPMPPNF 

Bf'r'NNNPPNF 

BPPPNPNNNF 

BNPPNPNNNF 

BNNNN^'NNNF 

BNNNNNNNNF 

BPPPPPfiPNF 

BT'NPPNPPNF 

R PP^! NPNNN'F 

BPPPPNNriPF 

BNNNNNNNNF 

Rh'NPPhiNNPF 

BPPPPPr'MNF 

BNNNNNPPNF 

EPPPr.'PNNNF 

Bf.'NPPNPPNF 

BNPNNPNNNF 

BPPNNNPPPF 

BNPPNNPPPF 

BPPNNPPPPF 

BNNPNPPPNF 

BPPNNPPPPF 

BNNPNPPNNF 

Br'NPPNPPNF 

BPPPPPNNPF 

BNNNPNPNNF 

BNNNNf.'NNNF 

BNr'NNf.'PpPF 

BPN-PNPNNNF 

BPNNPPPNNF 
BNPNNPPNNF 
BrJPWNNNNPF 
B^'PNPNPPPF 
EFPPPPPPPF 
BNPNPNPPPF 
BNPNNNNNPF 
BflNNFNPPNF 
BNNPNNPPNF 
BNNNNNNNNF 
BPPPPPPPNF 
BNNNfiNNNNF 
Bt.'PNNPPNNF 
BPNPPPNNNF 
BPNNNPPNPF 
DNNf'NNNPPF 
BNNPPNPPNF 
BPPNPNPPNF 
BNPNPNNPPF 
BPNNNPPNPF 
BPPNPNNNPF 
BT'NNNNNPPF 
BNNPPNPPNF 
BPNNPPPNNF 



Figure IV- 10. 



Symbol table and BNPF tape produced by PLM2 
for the INDEX procedure. 
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simulation. In addition, key statements in the source 
program should be labelled so that important points can be 
referenced symbolically during program check-out (see the 
use of the labels LQ, ... L5, and C^ , C2, and C3 in Figure 
IV-6, for example) . 

The generated symbol table and compiled object cede is 
loaded into INTERP/8. Simulated program execution can then 
be monitored, the values of memory locations can be examined 
and altered, and program errors are readily detected. 
Program check-out is usually more effective if debugging is 
carried-out at the symbolic rather than absolute level. 
That is, INTE3P/8 allows reference to memory through both 
symbolic locations (using the generated symbol table) and 
absolute addresses- As a result, it is generally much 
easier to follow the execution using the symbolic features 
of INTERP/8 than it is to trace the execution using absolute 
memory addresses. Thus, it is well worth the effort to 
become familiar with INTERP/8 symbolic debugging facilities. 

A number of features have been added to the INTEEP/8 

program which enhances its use in debugging PL/M programs. 

These features augment the commands described in Appendix 

III of the MCS-8 Users Manual. These additions are given 
below. 

First, note that symbolic names can be duplicated in a 
PL/M program. That is, a programmer could declare variables 
with the same name in block levels which do not conflict 
with one another. Consider the two procedures below, for 
example 

P1: PROCEDURE (A) BYTE; 

DECLARE (A,B) ADDRESS; 

« • • 

END P1 ; 
P2: PROCEDURE (Q) ADDRESS; 
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DECLARE (Q,A,B) BYTE; 

END P2; 
Recall that although there are variables in procedures PI 
and P2 which have the same names (i.e., A and B) , these 
variables are all given separate storage locations. In 
order to distinguish these variables, a construct of the 
form 

SI / S2 / ... Sn 
is allowed as a symbolic reference in INTERP/8. The 
interpretation of this construct is as follows: INTERP/8 
first searches for the symbol S1, then looks further to S2, 
and so-forth until Sn is found. This new construct can 
appear anywhere a "symbolic name" is allowed in the current 
INTERP/8 command structure. Note that in particular, the 
definition of a "range element" is extended to include this 
new form. Thus, the command 

DISPLAY MEMORY A TO B+1. 
is the same as 

DISP MEM P1/A TO P1/B+1. 
The seccnd occurrences of A and B can only be located by 
first searching for the name P2 . Thus, these two variables 
could be displayed using the command 

DI MEM P2/A TO P2/B. 

A second change to the INTERP/8 commands allows 
reference to a symbolic location when setting the value of 
the program stack (PC, PS 0, ... PS 7) or the value of the 
memory address register (HL) . With this addition, the 
following are valid commands 

SET PC = P2, PS 5 = P1 . 
SET HL = B. 
SET HL = P2 / A + 1. 

Two additional $ switches have been added to INTERP/8. 
The first is of the form 



70 



IMAXCYCLE = n 
When this switch has a non-zero value, the CPU simulation is 
prevented from running more than n cycles tefore returning 
to the card reader or console for more input (n is initially 
zero) . The toggle 

$GENLABELS 
was added to cause INTERP/8 to print the closest symbolic 
name to the current program counter whenever a break point 
is encountered. INTERP/8 prints 

break AT n = label displacement 
where "break" is one of the break point types: CYCLE, 
ALTER, or REFER, and n is an absolute location. The value 
of "label" is the closest symbolic name in the program, 
while the displacement is a positive or negative distance 
from the name to the location counter. 

The last change to INTERP/8 allows imbedded dollar 
signs within numbers and identifiers, as in Pl/M. 

These features are demonstrated in the example 
described below. Figure IV-11 gives a sample run of 
INTERP/8 using the symbol table and machine code produced by 
PLM2 corresponding to the program containing the INDEX 
procedure given previously. Again, the initiation of 
INTERF/8 is system dependent and thus is not shown here. 
The symbol table is first loaded from file 6, followed by 
the machine code, also from file 6. Note that these file 
numbers must correspond to the BNPF tape file written by 
PLK2 (se€ the $BNPF switch in PLM2) . The listing produced 
by PLM1 is used, along with the symbolic reference features 
of INTERP/8 to follow the program execution. 
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INTERP/8 VERS 1.0 

/* first load the synbol table and bnpf tape from internal 

file number 5 (corresponding to the $bnpf=5 Pn pass2) */ 

load 5 6. 
231* LOAD OK 

/* then look at the symbol table */ 

display symbols. 

0003620 002U2 00f^2H CARRY 

0003630 0021^3 00F3H ZFRO 

P0036ti0 002Uli OOFUH SIGH 

0003650 002lt5 00F5H PARITY 

OOOUOOO 00256 OlOOH MEMORY 

0000030 00003 0003H IMHEX 

0t)0356O 00246 00F5H A 

0003700 0021+8 O0F3H B 

0000150 OOOIU OOOEH LO 

0003720 00250 OOFAH J 

000373Q 00251 OOFBH K 

00037UO 00252 OOFCH L 

0003750 00253 OOFDH M 

0000210 00017 OOllH LI 

000051*0 OOOUU 002CH L2 

0001320 00090 005AH L3 

0001700 00120 0078H Ik 

0002070 00135 0087H L5 

000215Q OOllil 008DH Q 

0003760 00254 OOFEK I 

0003770 00255 OOFFH J 

000234O 00156 009CH CI 

000265Q 00181 00n5H C2 

0003160 00206 OOCEH C3 

/* set break points at places in the index procedures 
labelled by 10^ 11^ ... ^15 */ 

refer 1 0, 1 1, 1 2^ 1 3^ U^ 1 5. 

REFER OK 

/* it will probably be useful to examine the program 

at the beginning and end of each call to Index^ so...*/ 

ref cl^c2,c3. 
REFER OK 

/* nov/ run the program to the first reference variable */ 

go 1000. 

GO OK 

REFER AT 156=C1 

/* we are at location 156 decimal, or equi valentl y, label cl */ 

base hex. 
HEX BASE OK 

display symb *. 
Cl 

/* look at cpu registers . . . */ 

dl cpu. 

CYZSP A B C D r H L HL SP PSO 

*O0OC*O0H*COH*0OH*OOH*0OH*OOH*00H*O0C0H*O0H*0O9CF! 

di sym 9ch. 
Cl 

Figure IV-11. Sample execution of INTERP/8. 
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dl memory q to q+10. 

008DH 57H UIH UCH UCH UIH 57H UIH hCy\ kC^^ UIH 57H 

/* that must be the hex representation of VJALLAV.'ALLAVi */ 

di sy q. 

0002150 OOlitl 008DH 

/* now run the program to entry of the subroutine */ 

go 1000. 

GO OK 

REFER AT EH=L0 

/* now at label LO, so examine the value of a */ 

di mem a. 
00F5H SDH 

di mem a to a+1. 
00F6H SDH OOH 

/* the first string is based at a, so look at it..*/ 

di mem Sdh to 90h. 
008DH 57H itlH IjCH I^CH 

/* looks good, now examine b's value */ 

di mem b to b+1. 
00F8H 9FH OOH 

conv 9fh. 

lOOlllllB 2370. 159 9FH 

di mem 159 to 165. 

009FH 57H UIH kCU UCH UIH FFH OEH 

/* looks good too, so run the index procedure down to 

label 12 (also, to save tVping go 1000, we can set maxcycle 

to 1000 so the simulation will never run more than 1000 cycles 

before stopping) */ 

$maxcycle = 1000 

go. 

REFER AT 11H=L1 

go. 

REFER AT 2CH=L2 

/* examine the values of the local variables */ 

di mem index/j to index/m dec. 
OOFAH 000 000 000 000 

di mem j to m. 

OOFAH OOH OOH OOH OOH 

di sy Ofah. 
J 

/* run the procedure to label 13 */ 

go. 

REFER AT 5AH=L3 

/* both 1 and m should contain a 'v^' */ 



di mem 1 to m, 
OOFCH 57H 57H 
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/* we should set a match on characters 1/ A L L A 
and then return with the matching position 1 *./ 

KO. di m 1 to m. 
REFER AT 2CH=L2 
OOFCH 57H 57H 

go. di m 1 to m. 
REFER AT 5AH=L3 
OOFCH ttlH i*lH 

go . go. di m 1 to m. 
REFER AT 2CH=L2 
REFER AT 5AH=L3 
OOFCH UCH itCH 

/* so far we have matched V/ A L */ 

go. go. di m 1 to m. 
REFER AT 2CH=L2 
REFER AT 5AH=L3 
OOFCH itCH IjCH 

/* turn off the break point at L2 since it is getting 
in the way */ 

noref 12. 

REFER OK 

go. di m 1 to m. 
REFER AT 5AH=L3 
OOFCH UIH UIH 

/* this time we should return */ 

go. 

REFER AT 78H = Lli 

di mem m.. 
OOFDH FFM 

/* m = eos, so we should end up at label c2 */ 

ref 12. go. 

REFER OK 

REFER AT B5H=C2 

/* the value of i should be 1 */ 

di m i . 
OOFEH OIH 

di m i dec. 
OOFEH 001 

/* now try the second cal 1 */ 

go. 

REFER AT EH=L0 

di mem a to b+1. 
00F6H P.S!I COM 8D!' OOH 

base dec. 
DEC BASE OK 

di mem a to b+1. 
002U6 18ii 000 lUl 000 
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di mem l^k to 190^ mem lUl to li*?. 

OOlSt* 087 065 076 075 055 255 OIU 

OOlUl 087 065 076 076 055 087 0C5 

/* strings are being sent properly, so we can continue. 

we should return a this time since the larger string 

is not a substring of the smaller, so set reference 

brealcpoint only at 15 */ 

noref 1 0, 1 1, 1 2, 1 3, U. go. 

REFER OK 

REFER AT 135=L5 

/* looks good, so let the subroutine return */ 

IeFER at 206=C3 

di mem i . 
0025U 000 

noref 15. /* let the subroutine run, and see if 
REFER OK 

It returns the proper value */ 

go. 

CYCLE AT 50=L2+6 

/* we just ran over 1000 cycles, so let it continue */ 

go 5000. 

GO CK 

REFER AT 156=C1 

/* we are now back around the loop. i will be an 11 

if all is well */ 

d i mem i . 
00251} Oil 

/* everything looks good, so we can now do a little 

fooling around to show some of the other debugging 

features -- first we will look at the operand break 

point */ 

noref to 256. 
REFER OK 

/* all reference break points are reset, we will now 

set a break point so that program execution stops when 

the variables local to index are referenced. */ 

refer j to k. 
REFER OK 

£0. 

REFER AT 15=L0+1 

/* we stopped at the first instruction in index... 

took to see what instructions are there */ 
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di mem * to *+10 code* 

00015 LMI,OOH LHI^OOH LLI^FAH LAM LLI F6H APM I NL 

di hi. 
HL = 250 

di sy 250. 
J 

/* thus program execution has stopped because there 

was an attempt to store a zero into a variable set 

in the refer command run the program further...*/ 

go. 

REFER AT 21=Ll+4 

di hi. di mem * code. 
HL = 250 
00021 LAM 

di sy 250. 
J 

/* breakpoint now occurs because of the reference to 

the variable j. reset the break points, and 

break only if the variable is being altered */ 

noref j to m. alter j to m. 
REFER OK 
ALTER OK 

go. 

ALTER AT %2=L2-2 

di hi. di m * code. 
HL = 251 
000i»2 LM[ 

di sy 251. 
K 

/* now stopped because of attempt to alter variable k*/ 

go. 

ALTER AT 66=L2+22 

di hi. 
HL = 252 

di sy 252. 
L 

di me * to * + 10 code. 

00056 LMA DCL LBA LAM LLI,F8H ADfi INL LCA LAI^OOH 

di a. 
A = 87 

/* we are about to store the accumulator into the 
variable 1. look to see what is currently in 1, and 
then run one cycle, examine again. */ 

di mem 1 . 
00252 255 

go 1. 
GO OK 
CYCLE AT 67=L2+23 
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d1 men 1 . 
00252 087 

/* stored ok now reset all operand breakpoints, 

and go back and try the call over again */ 

noal ter j to m, 
ALTER OK 

di sy cl. 

00023'^Q 00156 009CH 

cy2sp"'a b c n e h l hi. SP PSO PSl 
*0101*087*liil 000*159 000 000*252*00252*001*00176*00067 

set pc = cl. dl CPU. 
SET OK 

CYZSP A B C D E H L HL SP PSO PSl 
0101 087 141 000 159 000 000 252 00252 001 00176*00156 

/* we had better get out of the subroutine 

cal 1, so .... */ 

set sp = 0. set pc=cl. di cpu. 
SET OK 
SET OK 

CYZSP A B C D E H L HL SP PSO 
0101 087 llil 000 159 000 000 252 00252*000*00156 

/* that looks a lot better, now try the call again */ 

go. 

CYCLE AT 62=L2+18 

go. 

CYCLE AT 6U=L2+20 

ref cl/C2,c3. 
REFER OK 

go. 

REFER AT 181=C2 

dl mem i . 
0025^ 001 

/* same as before, now try some selective 

program execution and tracing, we will set the 

values of some local variables and execute only 

the code between 12 and 13 */ 

set cpu. di cpu. 

SET OK 

CYZSP A B C D E H L HL SP PSO 

*0000*060*000 000*000 000 000*000*00000 000*00000 

/* display the code between 12 and 13 */ 

di mem 12 to 13 cod. 

OOOitU LHI^OOH LLI,FAH LAM I ML ADM LLI,F6H ADM I ML LBA LAI^OOH ACM LLB 

00060 LHA LAM LHI,OOH LL!,FCH LMA DCL LBA LAM LL!,F8H ADM I ^^L LCA LAI 

00076, OOH ACM LLC LHA LAM LHI,00H LLI,FDM LMA SUB JFZ,71H,00H PCL 

set mem j to m = 0. di mem j to m. 

SET OK 

00250 000 000 000 000 
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/-* set the address pointers for a and b up in memory 

somewhere */ 

set mem a to b+1 = Ih lOh Ih, di m a to b+1. 

SET OK 

002it6 000 001 016 001 

/* novr place data Into these locations */ 

set mem lOOh to 120h =123455 7. 
SET OK 

di mem lOOh to 120h, 

00256 001 002 003 004 005 006 007 001 002 003 004 005 006 007 001 002 

00272 003 004 005 006 007 001 002 003 004 005 006 007 001 002 003 004 

/* set j to 3 and k to 2 */ 

set mem }=3, mem k=2. di m j t k. 

SET OK 

00250 003 002 

/* now trace this section of code */ 

trace 12-3 to 13+5, 
TRACE OK 

go 5. 
GO OK 
REPER AT 156=C1 

/* move the program counter up to this section */ 

di PC/ sp. 
PC = 156 
SP = 

dl b. 
B = 

dl cpu. 

CYZSP A B C D E H L HL SP PSO 
0000 000 000 000 000 000 000 000 00000 000*00156 

set ps = 12. /* same as set pc=12*/ 
SET OK 

go 5. 
GO OK 

0000 000 000 000 000 000 000 000 00000 000*00044 
LHI 

0000 000 000 000 000 000 000 000 00000 000*00046 
LLI 250 

0000 COO OOn OOO OOO OOO 000*250*00250 000*000'i8 
LAM 

0000*003 000 000 000 000 000 250- 00250 000*0001|9 
INL 

*0010 003 000 000 000 000 000*251*00251 000*00050 
ADM 
CYCLE AT 51=L2+7 

base hex. 
HEX BASE OK 

go 30 
GO OK 
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*0001*05H OOH OOH OOH OOH OOH FBH OOFBH 00H*0033H 
LLI F6H 

0001 05H OOH OOH OOH OOH 00H*F5H*00F6H 00H*0035H 
ADM 

0001 05H OOH OOH OOH OOH OOH F5H 00F6H 00H*0035H 
I ML 

♦0010 05H OOH OOH OOH OOH O0H*F7H*00F7H 00H*0037H 
LBA 
CYZSP A B C D. E H L HL SP PSO 

0010 05H*05H OOH OOH OOH OOH F7H 00F7H 00H*0038H 
LA! OH 

0010*00H 05H OOH OOH OOH OOH F7H 00F7H 00H*003AH 
ACM 

*0000*01H 05H OOH OOH OOH OOH F7H 00F7H 00H*003BH 
LLB 

0000 OIH 05H OOH OOH OOH 00H*05H*0005H 00H*003CH 
LHA 

0000 OIH 05H OOH OOH 00H*01H 05H*0105H 00H*003DH 
LAM 

0000*06H 05H OOH OOH OOH OIH 05H 0105H 00H*003EH 

LHI OH 

0000 06H 05H OOH OOH OOH*OOH 05H*0005H OOH*OOliOH 
LLI FCH 

0000 06H 05H OOH OOH OOH OOH*FCH*OOFCH 00H*00I|2H 
LMA 

0000 06H 05H OOH OOH OOH OOH FCH OOFCH 00H*001j3H 
DCL 

*0010 05H 05H OOH OOH OOH OOH*FBH*OOFBH 00H*00U4H 
LBA 
CYZSP A B C D E H L HL SP PSO 

0010 06H*06H OOH OOH OOH OOH FBH OOFBH 00H*00lt5H 
LAM 

0010*02H 06H OOH OOH OOH OOH FBH OOFBH 00H*00U6H 
LLI F8H 

0010 02H 05H OOH OOH OOH 00H*F8H*00F8H 00H*00U8H 
ADM 

*G001*12H OGH OOH OOH OOH OOfl F8H 0GF8H 00H*O0'+9H 

INL 

*0011 12H 06H OOH OOH OOH 00H*F9H*00F9H 00H*00fiAH 

LCA 

0011 12H 06n*12H OOH OOH OOH F9H 00F9H 0OH*OOfiB" 
LAI OH 

0011*O0H 06H 12H OOH OCH OOH FSH C0F9H 00H*00liDM 
ACM 

*0000*01H 05H 12H OOH OOH OOH F9H OOFSH O0H*00ltE!! 
LLC 

0000 OIH 06H 12H COM OOH 00H*12H*0012H 00H*00I+FH 
LHA 

0000 OIH 06H 12H OOH 00H*01H 12H*0112H 00H*0050H 

LAM 

CYZSP A B C D E H L flL SP PSO 

0000*05H 05H 12H OOH OOH OIH 12H 0112H 00H*0051H 
LHI OH 

0000 05H 05H 12H OOH OOH*OOH 12H*0012H 00H*0053H 
LLI FDH 

0000 05H 06H 12H OOH OOH OOH*FDH*OOFDH 00H*0055H 
LMA 

0000 05H 05H 12H OOH OOH OOH FDH OOFDH 00H*0055H 

SUB 

*1011*FFH 06H 12H OOH OOH OOH FDH OOFPH 00H*0057H 

JFZ 71H 

CYCLE AT 73H = m-5H 

/* that should be enough of a check-out^ so retire...*/ 
$eof 
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As mentioned previously, the exact manner in which PLM1 
and PLM2 are initiated on any particular computer is 
inipleffientation-dependent. Several sample implementations 
are given, however, in Figures IV~12 through IV-15. These 
figures provide a sample execution of both passes for the 
INTEL FDP-10, and the commercial time-sharing services 
Tymshare, Applied Logic, and General Electric, respectively. 
In each case, the FOfiTRAN unit names are specified for each 
of the major files accessed by PLM1 and PLM2- 

When using the Tymshare version (Figure IV-13) , for 
example, the programmer places the PL/M source program into 
a file named FOR20-DAT, which corresponds to the internal 
file number 6. This file is read when the $1=6 switch is 
encountered during the PLM1 execution. PLM1 produces the 
intermediate files F0R22-DAT and FOR23.DAT, along with an 
optional listing in FOR03.DAT (under control of the $C=2 and 
$T=0 or $T=1 switches). 

FLM2 is then initiated and automatically reads the 
intermediate files produced by PLM1. Output can be directed 
to the disk file FOR07.DAT using the $0=3 switch during the 
PLM2 execution. The $B=7 switch in PLM2 produces a BNPF 
machine code tape during this second pass. 

INTEEP/8 can then be intiated for the debugging run, 
and the "lOAE 7 7. " command can be used to read this tape. 
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sample: run on intel pop-i0 
• rooY foR2?i.dat=myprog.plm 

.SFT SPOOL LPT 

.R Pl hi 

SI=f 

PASS 1 OF COMPILER IS INVOKED HERE 

.R PLM2 

$B = 7 

(SPACEfCARRlAGF RETURN) 

Pass 2 of compiler is invoked here 
.print •.lpt 



INPUT / 

FILE / (FOR20.DAT) 




(*.LPT) 



[NTER-^ 
(FOR22.DAT) /MEDIATE 

' LANGUAGE J 
FILE / 



SYMBOL / 

TABLE / {FOR2 3.DAT) 

FILE / 




(*.LPT) 



OPTIONAL 
BNPF / 
FILE / 



(F0R21.. AT) 



Figure IV-] 2. The INTEL implementation of PLMl and PLM2 



81 



SAMPLE" f?UN ON TYMSHARE PDP = 10 

• CTPv MYPRriG.PLM.FOR20.nAT 

.f^'JNi fiJPL) Pi. M"! 

$0=? 

$Mal 

fSal 

PASS 1 Of COMPILFR IS INVOKED HERE 

•RMN (UPL) PL»2 

HX,-, 
IB =7 

So =3 

(SPAft 'CARRIAGE RETURN) 

PASS 2 OF COMPILER IS INVOKED HERE 



INPtTT 

FILE / (FOR2j2f.DAT) 



/INTER- 

{FOR22.DAT) /MEDIATE 
^ ' LANGUAGE 
FILE 




(FORfr3.DAT) 



(FOR23.DAT) 



{FOR07.DAT) 



{F0R21.DAT) 



Figure IV-13. The Tymshare implementation of PLMl and PLM2 
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TYMSHARE FILE DEFINITIONS 



PASS 1 



INTERNAL 








FILE 


INPUT 




FORTRAN 


NUMBER 


DEVICE 


FILENAME 


UNIT 


1 


TTY 


FOR05.DAT 


5 


2 


CDR 


FOR02.DAT 


2 


3 


PTR 


FOR06.DAT 


6 


4 


MTA0 


F0R16.DAT 


16 


5 


DTAl 


FOR09.DAT 


9 


6 


DSK0 


FOR20.DAT 


20 


7 


DSKl 


F0R21.DAT 


21 


INTERNAL 








FILE 


OUTPUT 




FORTRAN 


NUMBER 


DEVICE 


FILENAME 


UNIT 


1 


TTY 


FOR05.DAT 


5 


2 


LPT 


FOR03.DAT 


3 


3 


PTP 


FOR07.DAT 


7 


4 


MTAl 


F0R17.DAT 


17 


5 


DTA2 


FOR10.DAT 


10 


6 


DSK2 


FOR22.DAT 


22 


7 


DSK3 


FOR23.DAT 


23 



PASS 2 



INTERNAL 

FILE 

NUMBER 


INPUT 
DEVICE 


FILENAME 


FORTRAN 
UNIT 


1 

2 
3 
4 
5 
6 
7 


TTY 

CDR 

PTR 

MTA0 

DTAl 

DSK2 

DSK3 


FOR05.DAT 
FOR02.DAT 
FOR06.DAT 
F0R16.DAT 
FOR09.DAT 
FOR22.DAT 
FOR2 3.DAT 


5 

2 

6 

16 

9 

22 

23 


INTERNAL 

FILE 

NUMBER 


OUTPUT 
DEVICE 


FILENAME 


FORTRAN 
UNIT 


1 

2 
3 
4 
5 
6 


TTY 

LPT 

PTP 

MTAl 

DTA2 

DSK0 


FOR05.DAT 
FOR03.DAT 
FOR07.DAT 
F0R17.DAT 
FOR10.DAT 
FOR20.DAT 


5 

3 

7 

17 

10 

20 


7 


DSKl 


F0R21.DAT 


21 
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SAMPLE RUN ON AL/COM PDP-10 



• \^\jr I r ix^^xv tun < 

.APPLY PLMl 

S0a2 

SMaJ 

SSr) 

$I«6 



Pass i or compiler is invoked here 



.APPLY PLM2 

SF=| 

SG*i 

$B = 7 

SMsl 

$0 = 3 

(SPACE»CARRIAGE RETURN) 



PASS 2 OF COMPILER IS INVOKED HERE 



(FILEll .DAT) 




/ FILE 




tfitE|5.C!M) 



SYMBOL 

TABLE / (FILElg.DATl 

FILE 




(FlLE[4.0ftr) 



OPTIONAL 

BNPF / ,« , 

FILE / (FILE11.DAT) 



Figure IV-14. The ALCOM implementation of PLMl and PLM2 
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AL/COM FILE DEFINITIONS 



PASS 1 



INTERNAL 








FILE 


INPUT 




FORTRAN 


NUMBER 


DEVICE 


FILENAME 


UNIT 


1 


TTY 


FILE5.DAT 


5 


2 


DSK 


FILE7.DAT 


7 


3 


DSK 


FILE8.DAT 


8 


4 


DSK 


FILE9.DAT 


9 


5 


DSK 


FILE10.DAT 


10 


6 


DSK 


FILE11.DAT 


11 


7 


DSK 


FILE12.DAT 


12 


INTERNAL 








FILE 


OUTPUT 




FORTRAN 


NUMBER 


DEVICE 


FILENAME 


UNIT 


1 


TTY 


FILE6.DAT 


6 


2 


DSK 


FILE13.DAT 


13 


3 


DSK 


FILE14.DAT 


14 


4 


DSK 


FILE15.DAT 


15 


5 


DSK 


FILE16.DAT 


16 


6 


DSK 


FILE17.DAT 


17 


7 


DSK 


FILE18.DAT 


18 



PASS 2 



INTERNAL 








FILE 


INPUT 




FORTRAN 


NUMBER 


DEVICE 


FILENAME 


UNIT 


1 


TTY 


FILE5.DAT 


5 


2 


DSK 


FILE7.DAT 


7 


3 


DSK 


FILE8.DAT 


8 


4 


DSK 


FILE9.DAT 


9 


5 


DSK 


FILE10.DAT 


10 


6 


DSK 


FILE17.DAT 


17 


7 


DSK 


FILE18.DAT 


18 


INTERNAL 








FILE 


OUTPUT 




FORTRAN 


NUMBER 


DEVICE 


FILENAME 


UNIT 


1 


TTY 


FILE6.DAT 


6 


2 


DSK 


FILE13.DAT 


13 


3 


DSK 


FILE14.DAT 


14 


4 


DSK 


FILE15.DAT 


15 


5 


DSK 


FILE16.DAT 


16 


6 


DSK 


FILE11.DAT 


11 


7 


DSK 


FILE12.DAT 


12 



SAMPLE RUN ON GENERAL ELECTRIC TIMESHARE 



OLD MYP90G 

SAVE FILEIN 

OLD PLMl 

RUN 

S0«2 

SH 

ss 

SI»6 

PASS 1 or COMPILER IS INVOKED HERE 

OLD PlM2 

RUN 

$F 

SG 
$B = 7 

$M 

$0=2 

(SPACE. CARRIAGE RETURN) 

PASS 2 OF COMPILER IS INVOKED HERE 



(FILEIN) 



(INTFIL) 




(PTRl) 



OPTIONAL 
LISTING I (PTR2) 



OPTIONAL 

BNPF 7 (LOGBIN) 

FILE / 



Figure IV-15. 



The General Electric implementation of PLMl 
and PLM2. 
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GENERAL ELECTRIC FILE DEFINITIONS 



PASS 1 



INTERNAL 






FILE 


INPUT 




NUMBER 


DEVICE 


FILENAME 


1 


TERMINAL 





2 


DISK 


CDR 


3 


DISK 


PAP I 


4 


DISK 


MAGIl 


5 


DISK 


DECIl 


6 


DISK 


FILEIN 


7 


DISK 


LOGBIN 


INTERNAL 






FILE 


OUTPUT 




NUMBER 


DEVICE 


FILENAME 


1 


TERMINAL 





2 


DISK 


PTRl 


3 


DISK 


PAPO 7 


4 


DISK 


MAGO f 


5 


DISK 


DECO ^ 


6 


DISK 


DISKOl 


7 


DISK 


DISK02 



y£t,"*i!' 



PASS 2 



INTERNAL 






FILE 


INPUT 




NUMBER 


DEVICE 


FILENAME 


1 


TERMINAL 





2 


DISK 


CDR 


3 


DISK 


PAP I 


4 


DISK 


MAGIl 


5 


DISK 


DECIl 


6 


DISK 


DISKOl 


7 


DISK 


DISK02 


INTERNAL 






FILE 


OUTPUT 




NUMBER 


DEVICE 


FILENAME 


1 


TERMINAL 





2 


DISK 


PTR2 


3 


DISK 


PAPO 


4 


DISK 


MAGO 


5 


DISK 


DECO 


6 


DISK 


LOGOUT 


7 


DISK 


LOGBIN 



5 i, fi. 4«^ ■■*:' 



V. PL/M RUN-TIME CONVENTIONS FOE THE 8008 CPU. 

This section presents the run-time organization of PL/M 
programs, including storage allocation and suJ:routine 
linkage. The discussion below assumes an 8008 CPU 
environment, and thus programs which are intended to be 
independent cf CPU architecture should not depend upon the 
conventions presented here. 

li Storage Allocation. 

The overall organization of memory for the INTEL 8008 
CPU is shown in Figure V- 1 . Memory is allocated in three 
main sections: the Instruction Storage Area (ISA) , the 
Variable Storage Area (VSA) , and the Free Storage Area 
(FSA) . The beginning of the ISA is determined by the 
numeric label of the first statement within the PL/M 
program. If no numeric label is specified, the origin of 
the ISA defaults to zero, and the segment marked "unused" in 
Figure V-1 is empty. The "square root" program given in 
Appendix A contains a numeric label on the first statement 
to force the ISA to start at location 2048, 

All cede generated by the PL/M compiler is "pure." 
That is, no object code modifications are made at run-time. 
Thus, the ISA memory portion can be implemented in either 
EAM (Random-Access Memory) or ROM (Read-Only Memory) . 

The VSA portion of memory holds values of variables 
declared within the PL/M program in address-order. The 
first variable declared in the source program is at the 
lowest address in the VSA, while the last variable declared 
is at the highest address. It should be noted that 
doutle-byte (ADDRESS) variables are always aligned on an 



MCS-8 MEMORY 



16383 



♦ MEMORY 



FIRST 
VARIABLE 
DECLARED 



PROGRAM 
ORIGIN 



00000 



FREE 

STORAGE 

AREA 

(FSA) 



VARIABLE 

STORAGE 

AREA 

(VSA) 



INSTRUCTION 
STORAGE 
AREA 
(ISA) 



MEMORY 
VECTOR 



- LAST 
VARIABLE 
DECLARED 




Figure V-1. Run-Time Storage Organization for the 8008 CPU, 
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even address boundary; thus, contiguous BYTE and AEDEESS 
declarations in the source program may or may not lead to 
contiguous allocation of these variables in the VSii. In 
addition, note that declarations with the DATA attribute 
cause allocation of the corresponding value in the ISA, not 
the VSA, Hence, DATA variables cannot be altered if the ISA 
is implemented in ROM. 

The VSA is placed after the ISA, but never begins 
before the page indicated by the $VARIABLES compiler switch 
in PLM2 (the default value of this switch is zero) . 
Suppose, for example, that pages 0, 1, and 2 of memory are 
iirplemented in unalterable ROW (recall that there are 256 
bytes per page). The programmer would then set the switch 

$VARIABLES = 3 
during PLM2 to indicate that page number 3 is the first page 
in which variables can be allocated. If the ISA is 
contained within pages 0, 1, and 2 then the VSA begins in 
page 3. If the ISA extends past the first three pages into 
RAM then the length of the ISA determines the beginning of 
the VSA. The end of the VSA is always at an even page 
boundary. 

Recall that there is one predeclared BYTE vector, 
called "MEMORY," which is automatically included in every 
PL/M program. The MEMORY vector is started after the last 
variable in the VSA, and thus represents the last area of 
memory, called the FSA, shown in figure V- 1 , The length of 
the MEMORY vector is, of course, dependent upon the amount 
of memory physically attached to the particular 8008 CPU 
being used, and the length of the ISA and VSA. The length 
of MEMORY can be effectively computed at run^time, however, 
by attempting to read and write the first location in each 
page of the FSA. A subroutine for this purpose is shown in 
Figure V-2- 
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00001 2 /* THE MEM$LENGTH PROCEDURE RETURNS THE NUMBER OF 

00002 2 BYTES IN THE FREE STORAGE AREA (FSA) */ 

00003 2 DECLARE TEST$VALUE LITERALLY ' 1010$1010B' ; 
OOOOtt 2 MEM$LENGTH: PROCEDURE ADDRESS; 

00005 3 DECLARE (I, MAX) ADDRESS; 

00006 3 1=0; MAX = UOOOH - .MEf^ORY; 

00007 3 /* MAX IS THE LARGEST POSSIBLE SIZE FOR THE FSA 

00008 3 IN A FULL 16K 8008 SYSTEM */ 

00009 3 IF .MEMORY <> THEN /* AT LEAST ONE FRtp PAGE */ 

00010 3 LOOP: DO WHILE I < MAX; 

00011 3 /* WRITE THE TEST VALUE WJO THE FIRST WORD OF 

00012 3 THE PAGE */ 

00013 3 MEMORY(I) -TEST$VALUF; 

OOOm k IF MEMORY(I) = TEST$VALUE THEN 

00015 h 1=1+ 256; ELSE MAX = 0; 

00016 h END; 

00017 3 RETURN I; 

00018 3 END MEM$LENGTH; 

00019 2 

00020 2 /* TEST THE ABOVE PROCEDURE */ 

00021 2 DECLARE RESULT ADDRESS; 

00022 2 START: RESULT = MEM$LENGTH; 

00023 2 FINISH: GO TO START; 
00021* 2 EOF 

NO PROGRAM ERRORS 

Figure V-2. A PL/M Procedure for Determining MEMORY Length. 
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2, Subroutine Linkage Conventions, 

The methods used for activating procedures and binding 
actual parameters to formal parameters in PL/M is given 
below. Again, note that the conventions given here are 
dependent upon the 8008 CPU environment. 

Subroutine parameter passing is performed as follows, 
first, note that formal parameters declared in the procedure 
definition are treated the same as locally defined 
variables- That is, each parameter is allocated storage 
sequentially in memory as if it were a variable local to the 
procedure. Formal parameters, however, are initialized to 
their corresponding evaluated actual parameters at the time 
the procedure is invoked. Thus, all parameters are "call by 
value" in PL/iM. This initialization of formal parameters is 
performed in two different ways, depending ufon the number 
of arguaents declared in the procedure. If there is only 
one parameter, the low-order byte is passed in CPU register 
B, while, the high-order byte is sent in register C. If 
there are two parameters, the first is passed as above, and 
the second is passed in CPU registers D (low-order byte) and 
E (high-order byte) . When there are more than two 
parameters, the last two are sent as described above, and 
the others are sent by generating implied assignment 
statements at the calling point which store the evaluated 
actual parameters into the variables representing the formal 
parameters. 

The CPU registers are also used to hold values on 
return from procedures which have tne EYTE or ACDEESS 
attribute. In the case of a BYTE procedure, the value 
returned is in the A register, while an ADDRESS procedure 
returns the low-order byte in register A, and the high-order 
byte in register C- 
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The eight-level program counter stack nQechanism cf the 
8006 CPU is used to hold return addresses when subroutines 
are called. Although this stack size is sufficient for most 
PL/M programming applications, the user should be aware that 
the 8008 stack size limits nesting of subroutine calls to 
seven levels at run-time. 

J^ H^e of Ass emb ler Lan^ua^e Subroutines with PL/M^ 



Assembler language subroutines can be incorporated into 
Pl/M programs if these subroutines account for the PL/M 
procedure conventions discussed previously. 

The assembly language subroutines are first assembled 
into absolute locations, usually starting at low addresses 
in memory, as shown in Figure V-3. Each subroutine should 
end with a EET (return) operation code. The beginning 
address of each subroutine is obtained after assembly, 
denoted by SI, S2, ... ,Sn in Figure V-3. 

For each subroutine 31, S2, ... ,Sn, write dummy PL/M 
interface procedures P1, P2, ... ,Pn where each Pi is a 
procedure containing the single statement 

GO TO Si; 
The procedure Pi can have zero, one, or two parameters of 
type BYTE or ADDRESS, and can return either a BYTE or 
ADDBESS value, or simply return with no value at all. Note 
that if more than two parameters are to be sent, or if more 
than one value is to be returned, ADDRESS variables can be 
used to "point to" parameters or results. 

The subroutine Si then obtains parameters from the CPU 
registers E, C, D, and E, as given in the conventions above, 
and returns values through registers A and C. 
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MGS-8 MEMORY 



F S A 



Origin: 



V S A 



ISA 

Containing Procedures 

P]_, P2, ... ,Pn 




Figure V-3. Including Assembly Language Subroutines in 
PL/M Programs. 
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Suppose, for example, a programmer codes three 
subroutines in assembly language for handling teletype I/O. 
The subroutine S1 sends a line-f eed-carriage-ieturn, and is 
found at location 50 in memory. The subroutine S2 writes a 
single character at the teletype and returns. Assume S2 
assembles starting at location 75, The subroutine S3 reads 
one character from the teletype, and is located between 
addresses 12C and 150 in memory. The following PL/K program 
then provides interface procedures for these assembly 
language subroutines. 

150: DECLAEE CHLFS LITESALLY •50», 

TTYOUTS LITERALLY »75«, 

TTYINS LITERALLY »120 '; 
CRLF: PROCEDURE; 

GO TO CRLFS; 

END CRLF; 
TTYOUT: PROCEDURE (CHAR) ; 

DECLARE CHAR BYTE; 

GO TO TTYOUTS; 

END TTYOUT; 
TTYIN: PROCEDURE BYTE; 

GO TO TTYINS; 

END TTYIN; 
The CRLF, ITYOUT, and TTYIN procedures can then be called 
in the same manner as any internally-defined procedure. 

If the assembly language subroutines are not fully 
checked-out and thus are undergoing revisions, it may be 
worthwhile constructing a "jump vector" at the beginning of 
memory. The jump vector contains jump instructions to 
addresses of the currently assembled subroutines Si through 
Sn in lower memory. The corresponding PL/M interface 
procedures then branch indirectly through this jump vector. 
If the subroutines are reassembled at different locations, 
only the jump vector need be changed, since it is not 
necessary to recompile the PL/M program. 
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As a final note, the programmer is reminded that 
assembly language subroutines should be used only when 
absolutely necessary. Changes to the PL/M system for future 
machine architecture will necessitate changes in subroutine 
conventions, resulting in loss of upward software 
compatibility in all programs which depend upon these 
conventions. 
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Appendix A 



A Sample Program in PL/M 



PASS-J 



00001 


2 


00002 


2 


00003 


2 


00004 


2 


00005 


2 


00006 


3 


00007 


3 


00008 


3 


00009 


3 


00010 


4 


00011 


3 


00012 


3 


00013 


2 


00014 


2 


00015 


3 


00016 


3 


00017 


3 


00016 


3 


00019 


3 


00020 


3 


0002.1 


4 


0002? 


4 


00023 


4 


00024 


3 


00025 


3 


00026 


3 


0002 7 


3 


00028 


2 


00029 


2 


00030 


3 


00031 


3 


0003? 


3 


00033 


3 


00034 


4 


00035 


3 


00036 


2 


0f!037 


2 


00038 


3 


00039 


3 


00040 


3 


00041 


3 


00042 


3 


00043 


4 


00044 


4 


00045 


4 


00046 


4 


00047 


4 


00048 


4 


00049 


3 


ti005PI 


3 


0005- 


2 


0005? 


2 


00053 


2 


00054 


2 


00055 


2 


00056 


2 


00057 


2 


00058 


2 


00059 


2 


0006t^ 


2 


00061 


2 


00062 


2 


0006-^ 


3 


00064 


4 


00065 


4 


00066 


3 


00067 


3 


00068 


3 


00069 


3 


00075? 


2 


00071 


2 


00072 


2 


NO PROGRAM 



2043: /• IS THE ORIGIN OF THIS PROGRAM ♦/ 
DECLARE TTO LITERALLY '2'. CR LITERALLY 'ISO', LF LITERALLY •0AH». 
TRUE LITERALLY 'l'- FALSE LITERALLY '2' J 

SQUARESROOT: PROCEOURE(X) BYTEJ 
DECLARE (X.Y.Z) ADDRESS; 
Y = X; 2 = SHR(X+1,1); 
00 WHILE Y <> 2; 
Y = 2: 2 = SHR(X/Y ♦ Y * 1, 1); 

end; 

RETURN Y; 

END SQUAREROOT; 

PRINTSCHAR: PROCEDURE (CHAR); 

DECLARE BIT$CELL LITERALLY '91'. 

(CHAR, I) BYTE: 
OUTPUT (TTO) ' 0; 
CALL TIME (BITSCELL); 

DO I = TO 7; 

OJTPUT(TTO) = CHaRJ /• DaTa PUlSES •/ 

CHAR = R0R(CHAR,1); 

CALL TIME(BIT$CELL); 

END! 
OUTPUT (TTO) = 1; 
CALL TIME (BIT$CELL*BITCELL)! 
/» AUTOMATIC RETURN IS GENERATED »/ 
END PRINTSCHAR; 

PRINTSSTRING: PROCEDURE (NAME, LENGTH): 
DECLARE NAME ADDRESS, 

(LENGTH, I, CHAR BASED NAME) BYTE; 

DO I = TO LENGTH - 1; 

CALL PRINT$CHAR(CHAR(I) ); 

END! 
END PRINTSSTRING; 

PRINTSNUMBER: PROCEDURE (NUMBER, BASE ,CH*RS,2ER0$SUPPRESS J ; 

DECLARE NUMBER ADDRESS. (PASE , CHARS. 2ER0S?UPPWESS, I , J ) 9YTE; 

DECLARE TEMP (16) BYTE; 

IF CHARS > LAST{TEMP) THEN CHARS = LaST(TEMP); 

DO I = 1 TO CHARS; 

J = NUMBER MOD BASE ♦ '0' ; 

IF J > '9' THEN J = J ♦ 7; 

IF ZEROSSUPPRESS AND I <> AND nUmBER = 2 THEN 

J = ' '; 

TEMP(LENGTH(TEMP)-I ) = j; 
NUMBER = NUMBER / BASE; 

end: 

CALL PRnTSSTRING( .TEMP ♦ LENGTH(TrMP) - CHARS. CHARS); 
END PRINTSNUMBER; 

DECLARE I ADDRESS, 

CRLF LITERALLY •CR,LF', 

HEADING DATA (CRLF,LF,LF, 

' TABLE OF SQUARE ROOTS', rRLF,LF, 

• VALUE ROOT VALUE ROOT VALUE ROOT VALUE ROOT VALUE ROOT', 

CRLF,LF); 

/• SILENCE TTY AND PRINT COMPUTF[; VALUES ♦/ 
OUTPUT(TTO) = i: 
00 I = 1 TO 1000; 
IF I MOD 5 = 1 THEN 

DO; IF I MOD 250 = 1 THEN 

CALL PRINTS3TRING( .HEADINr,,LENr,TH(HEADI-JG) ) ; 

END; ELSE 
CALL PRINTSTRING(. (CR,LF),2) ; 

CALL PRINTJNUM8ER(I,10,6,TRUE /• TRUE SUPPRESSES LEADING ZEROES •/) 
CALL PRINT$NUMBER(SaUARE$ROOT(I), 10,6, TRUE): 
END; 

DECLARE MONiTORSUSES (10) BYTE; 

EOF 

eRRORS 



y / 



PASS-1 SYMBOL TABLE 



SYMBOL 


innR 


WDS 


GHRS 




LENGTH 


PR 


TV 






S00078* 


0326 


"i 


11 


R 


000010 






MONITORUSES 




SPI0077 


0322 


1 


1 


R 


000006 






6 




S00076 


0319 








R 


000000 










S00075 


0316 


3 





R 


000000 










S00074 


0312 


1 


3 


R 


000250 






250 




S00073 


0309 








R 


000000 










S00072 


0305 


1 


1 


R 


000005 






5 




S00071 


0302 








R 


000000 










S00070 


0298 


I 


4 


R 


001000 




6 


1000 




S00069 


0295 








R 


000000 




4 






S00068 


0283 


12 


60 


R 


000000 




5 


' VALUE ROOT 


VALUE 


S00067 


0268 


9 


45 


R 


000000 




5 


" 




S00066 


0264 


1 


2 


R 


000010 




6 


0A 




S00063 


0260 


1 


2 


R 


000013 






15 




S0f«064» 


0255 


2 


7 


R 


000115 






HEADING 




S00063* 


0251 


1 


. 1 


R 


000001 






I 




S00062 


0247 


1 


1 


R 


000032 






1 1 




S0P061 


0244 








R 


000000 










S00060 


0241 








R 


000000 










S00059 


0237 


1 


1 


R 


000057 






• 9. 




S00053 


0233 


1 


1 


R 


000048 






.0. 




^00057 


0230 








R 


000000 










S000'56 


0227 








R 


000000 










S00055 


0224 








R 


000000 










S00054« 


0220 


1 


4 


R 


000016 






TEMP 




S00f553» 


0216 


1 


1 


R 


000001 






J 




S00052» 


0212 


1 


1 


R 


000001 






I 




S000S1 


0209 








R 


0e?000 










S0005C5* 


0203 


3 


12 


R 


000001 






ZERCSUPPRESS 




S00049» 


0199 


1 


5 


R 


000001 






CHARS 




S00048* 


0195 


1 


4 


R 


000001 






BASE 




S00047* 


0190 


2 


6 


R 


000001 


2 




NUMBER 




S00046* 


0184 


3 


11 


R 


000004 





3 


printnumber 





ROOT VALUE ROOT VALUE R( 
TABLE OF SQUARE ROOTS 



S00(?45 


0181 








R 


000000 




4 




S00044 


017fl 








R 


000000 




4 




S00043* 


0173 


1 


4 


B 


000001 




1 


CHAR 00000027H 


S00042* 


0169 


1 


1 


R 


000001 




1 


I 


S00041 


0166 








R 


000000 




4 




S0f5Z40» 


0161 


2 


6 


R 


000001 




1 


LENGTH 


S00C539* 


0157 


1 


4 


R 


000001 


2 


1 


NAME 


S00038» 


0151 


3 


11 


R 


000002 





3 


PRINTSTRING 


500037 


0148 








R 


000000 


4 


4 




S0(?036 


0144 


1 


1 


R 


000007 


1 


6 


7 


S00035 


0141 








R 


000000 


4 


4 




S00034 


0137 


1 


2 


R 


000091 


1 


6 


91 


S00073 


0133 


1 


1 


R 


000000 


1 


6 





S07I032 


0129 


1 


1 


R 


000002 


1 


6 


2 


S0003l« 


0125 


1 


1 


R 


000001 


1 


1 


I 


S0003Pt 


0122 








R 


000000 


4 


4 




S000?9» 


0118 


1 


4 


R 


000001 


1 


1 


CHAR 


S0007a» 


0113 


2 


9 


R 


000001 





3 


PRINTCHAR 


S00PI?7 


0110 


PI 





R 


000000 


4 


4 




S00?i26 


0107 








R 


000000 


4 


4 




S00025 


0103 


1 


1 


R 


000001 


1 


6 


1 


S00024* 


0099 


1 


1 


R 


000001 


2 


1 


Z 


S000?:^» 


0095 


1 


1 


R 


000001 


2 


1 


Y 


S0002-> 


009? 








R 


000000 


4 


4 




300021 • 


0088 


1 


1 


R 


000001 


2 


1 


X 


S00C520» 


08 3 


2 


10 


R 


000001 


1 


3 


squareroot 


S00019 


0079 


1 


4 


R 


002048 


2 


6 


204fc 


S0P01S 


0074 


2 


6 


R 


000001 


2 


2 


DOUBLE 


S00017 


0070 


1. 


4 


R 


000003 





2 


MOVE 


S00016 


0066 


1 


4 


R 


000001 


1 


2 


LAST 


SI?00.iS 


0061 


2 


6 


R 


000B01 


1 


2 


LENGTH 


S00?- 4 


0056 


2 


6 


R 


000001 




2 


OUTPUT 


502013 


0052 


t 


5 


R 


000001 




2 


INPUT 


S00012 


0048 


1 


3 


R 


000001 




2 


LOW 


S00011 


0044 


1 


4 


R 


000001 




2 


HIGH 


S00010 


0040 


1 


4 


R 


000001 




2 


TIME 


S00009 


0036 


1 


3 


R 


000002 




2 


SHR 


S00008 


0032 


1 


3 


R 


000002 




2 


Shl 


800007 


0028 


1 


3 


R 


000002 




2 


ROR 


S00006 


0024 


1 


3 


R 


000002 




2 


ROL 


S00005 


0019 


2 


6 


R 


000000 




1 


MEMORY 


S00004 


0014 


2 


6 


R 


000001 




1 


PARITY 


S00003 


0010 


1 


4 


R 


000001 




1 


SIGN 


S00002 


0006 


1 


4 


R 


000001 




1 


2ER0 


S00001 


0002 


1 


5 


R 


000001 




1 


CARRY 
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R'ASS*.? 



LINE NUMBER - ADDRESS CORRESPONDENCE 



2=0800X 6=0803H 7«080AH 8a08lDH 
11=08A9H 12=08B1H 13»08B2H 16a08B5H 
19=08C5H 20=08C8H 21=08D2H 22=08D7H 
25=08EBH 26=08ErH 27s08F7H 28=08F8H 
52=0907H 33=090DH 34=0923H 363092DH 
39=0938H 405093CH 41=093FH 42=0952H 
45=0999H 46=099OH 47=09AFH 48=09CCH 
52=09F6H 
500064 02553 115 

?IDH 04H 0AH 0AH 20H 20H 20H 20H 20H 20H 
20H 20H 2aH 20H 20H 20H 20H 20H 20H 20H 20H 
46M 20H 53H 5lH 55H 41H 52H 45H 20H 52H 4FH 
56H 41H 4CH 55H 45H 20H 20H 52H 4FH 4FH 54H 
20H 52H 4FH 4FH 54H 20H 56H 41H ^CH 55H 45H 
56H 41H 4CH 55H 45H 20H 20H 52H 4FH 4FH 54H 
20H 52H 4(rH 4FH 54H 0OH 0AH 0AH 

60i0A6CH 61=0A6FH 62=0A7eH 63=0AA4H 
65=0AC6H 66=0ACFH 
800081 02773 2 
0DH 0AH 
67=0AD7h 68=0AF7H 69=0B09H 70=0B28H 
Smwi 00BCCH S00002 00BCDH S00003 0aBCEH 
S00?!n|5 00C00H S00021 00BD0H S00023 00BO2H 
S00029 00BD6H S02031 00BD7H S00039 00BD8H 
5005142 00eOBH S00047 008DCH S00048 00BOFH 
500050 00BF1H S00052 00BE2H S00053 00BE3H 
S00063 00BF4H S00078 00BF6H S00079 00BCAH 
0000H HLT HLT HlT HL T HLT HLT HLT HlT HL T HLT 



9S0838H 
17=088AH 
23=08D8H 
30=08FBH 
37S092EH 
43=096rH 
49=09O1H 



10«089DH 
18>086CH 
24=08E8H 
3l«0904H 
38B0931H 
44«»8972H 
51«09F5H 



20H 20H 20H 20H 20H 20H 20H 

54H 41H 42H 4CH 45H 20H 4FH 

4FH 54H 53H 0DH 0AH 0AH 20H 

20H 56H 41H 4CH 55H 45H 20H 

20H 20H 52H 4FH 4FH 54H 20H 

20H 56H 41H 4CH 55H 45H ?0H 

64=0AC3H 



S00004 00BCFH 
S00024 00BD4H 
S00040 00BDAH 
S00049 00BE0H 
S00054 00BE4H 
S00080 00BC8H 
HLT HLT HLT HLT HLT HLT 



GENERATED OBJECT CODE 

0800H JMP.B2H,08H LHl.MH LlLDBH LMB INL LMC OCL LBM INL LCM InL LMB 

0810H INL LHC LLI.O0H LAM INL LCM AOI.01H LBA LAC ACI,00H QRA RAR LCA 

0e20H LAB RAR LLI.D4H LMA INL LMC LHI,08H LLI.D2H LAM INL LCM INL SUM 



0830H 
0840H 
0850H 
0860H 
0870H 
0880H 
0890H 
08A0H 
08B0H 
08C0H 
08D0H 
08E0H 
08F0H 
0900H 
0910H 
0920H 
0930H 
0940H 

0950H; 

0960H 

0970H, 

0980H 

0990H 

09A0M, 

09R0H 

09C0H, 

09D0H 

09F0H. 

09F0H 

0A00H 

0A1?H 

0A20H 

0A30H, 

0A40H 

0A50H 

0A60H 

0A70H. 

0A80H 

0A90H, 

0AA0H 

0AB0H 

0AC0H 

0AD0H 

0AE0H 

0AF0H 

0B00H 

0B10H 

0B20H 



INL LBA LAC 

LMC OCL LBM 

,CAH LMB INL 

RAL LDA LAE 

DCL LAB SUM 

LAC ACM LCA 

ADM INL LOA 

LAD RaR INL 

RET RET JHP 

.C5H.08H JMP 

'E8H>08H DCL 

.0eH INL LBM 

DCB JTZ,F7H 

INL LMC INL 

JTC>2OH>09H 

CAL>B9H,08H 

09H LHI >0BH 

0FH LHI.0BH 

D9H.09H LLI 

LLI.CAH LMB 

E3H LHB LAl 

LAM SUI .9im 

LCA LAD SBI. 

20H LAI.10H 

LOM LLB LHA 

OCH LBH INL 

LME LLI.E2H 

10H LBA LAC 

LOM LCA CAL. 

INE INE INE 

INF INE 

I<3I0 CFS, 

.4t:H 010 102 

INE CFS.4rH, 

JMP,?0H,56H 

JMP,55H,45H 

0BH LLI.F4H 

SUM INL LBA 

F4H LBM INL 

LAC SBI.00H 

LBM INL LCM 

SBI.00H ORB 

E0H,(!I*H JMP, 

LHI.0BH LL I' 

LBIp06H LOl» 

08H LHI.0BH 

aiH CAL,31H. 

00H OCL LMB 



INE 
010 



SBM ORB 
INL LCM 
LMC JMP 
RAL LEM 
LBA INL 
INL SBA 
LAE ACM 
LMA INL 
'F8H.08H 
•BEH.08H 
LAM 010 
INB LMB 
.08H JMP 
LMD INL 
LAM LLI 
LHI.0BM 
LLI,E0H 
LLI.E2H 
. DFH LBM 
INL LMC 
. 39H SUM 
ADI .FFH 
.00H ORC 
LHI.0BH 
LMD LHI , 
LCM LLI. 
LBH INB 
ACI.00H 
'FBH,0BH 
INE INE 
INE INE 
45H,20H 
INE INF 
4FH JMP, 
100 JMP. 
INE INE 
LMI,01H 
LAC SBM 
LCM LLI, 
ORB JFZ. 
LLI»CAH 
JFZ.CFH. 
D7H,iaAH 
F4H LBH 
01H CAL, 
LLI 'OCH 
B9H LHI 
INL LMA 



JTZ,A9H 
LLI.C8H 
>8AH.08H 
DCE LME 
LAC SBM 
SBI,80H 
LEA LAD 
LME JMP 
LHI.0BH 
INL LMI 
LAM RRC 
JMP,C8H 
.F0H,08H 
LMI.00H 
.08H ADM 
LLI.OBH 
LMB INL 
LMI,01H 
LLI.CBH 
CAL.57H 
JFC.7CH 
SBA DCL 
SUI,01H 
LLI,E2H 
.0BH LLI 
■ CAH L'^B 
LMB Ji^P 
LCA LAB 
RET JMP 
INE INE 
JMP.41H 
CFS,4FH 
CFS,4FH 
20H.56H 
55H,45h 
CFS.4FH 
INL LMI 
JTC,28H 
CAH LMB 
D2H,0AH 
LMB INL 
0AH LBI 
R01 RRC 
INL LCM 
31H,09H 
LMA INL 
■BH LLI 
JMP,78H 



.08H DCL 
LMB INL 
LEM DCL 
LEA RTZ 
LCA JFC 
JMP,5FH 
ADI,01H 
,27H,08H 
LLI.06H 
.00H LAI 
LMA LBI 
r08H LAI 
RET JMP 
LHI.0BH 
INL LBA 
LBM INS 
LMD LAI 
LHI>0BH 
LMB INL 
.0eH LAB 
,09H LAM 
NDM LLI 
SPA NOB 
SUM LLl- 
.DFH LBM 
INL LMC 
. 47H, 09H 
LLI.E0H 
.6CH,0AH 
INE INE 
,42H JMP, 
,4FH JMP, 
•4FH JMP, 
100 JMP. 
INE INE 
,4FH JMP, 
,00H LAI , 
.0BH LL I. 
INL LMC 
LLI.C8H 
LMC CAL, 
.F9H LCI, 
LBI,D5H 
LLl.DCH 
LHl.eSH 
LMI>00H 
»F4H LAM 
I0AH HLT 



LBM INL 

LMC LLI 

LDM LMI 

LAB RAL 

p83H,08H 

i08H CAL 

LDA LAE 

LHl,09H 

LMB XRA 

i07H LHI 

'5BH DCB 

01H 010 

2EH,09H 

LLl.DAH 

LAI .00H 

LMB JMP 

0FH DCL 



LLI 
LMI, 

ADi . 
ADI , 



E0H 
00H 

30H 



,DCH LBA 
RRC JFC 
.E4H ADL 
LLI ,CRH 
CAL,57H^ 
LH I, 0BH 
SUM LBA 
R01 RRC 
IME IMF 
.45H,2CH 
53H,C1DH 
20H,56H 
55H,45H 
CFS.4FM, 
0DH,0AH 
ESH LCI , 
C8H LMI, 
CAL.57H, 
LMl.FAH 
57H,08H 
09H LDI. 
LCI,0AH 
LMB INL 
LLI.F4H 
LLI. DFH 
INL LCM 



LCM LLI 
D0H LBM 
IIH LBI 
LBA LAC 
DCL LAB 
57H,08H 
ACI.00H 
LLl,D2H 
010 LBI 
,0BH LLI 
JTZ.EIH 
LAI.SBH 
LHI,0BH 
LBM DCB 
ACM LLB 
,07H,09H 
SUM JFC 
LAM LLI 
LLl.DCH 
LBA LAC 
LMA LHI 
LAM INL 
. A1H,09H 
LBA LAH 
LMB INL 
08H LLI, 
LLI.E4H 
LAC SBI, 
RRC RRC 
INE INE 
107 CAL. 
RRC RPC 
120 JMP, 
INE INE 
4FH JMP, 
RRC LAI, 
03H LHI, 
05H INL 
08H LAB 
INL LMI, 
LAB SUI, 
73H CAL, 
LDI,02H 
LMC LLI, 
LBW INL 
LMI,0AH 
ADI,01H 



.D2H LMB INL 

INL LCM LLI 

,00H LCB LAD 

RAL LCA OCL 

ADM LBA INL 

LAD LLI,02H 

QRA RAR LEA 

LAM INL LCM 

.5BH DCB JTZ 

,D7H SUM JTC 

.08H JMP,0AH 

ADI.SBH LBA 

LLI.D8H LMB 

LAB INL SUM 

LHA LAM LBA 

RET JMP,F6H 

.41Hi09h LMI 

,E2H SUM JTC 

LBM INL LCM 

ACI,P!0H LLI 

.08H LLI.E2H 

LDM SUI ,00H 

LLI»E3H LMI 

ACI,00H DCL 

L M I , K 0H LLI 

'DCH LMD Uil 

LCH LAL ADI 

00H LLI,E0H 

INE INE INE 

INE INE INE 

20H,53H 008 

INE CAL,41H 

55H,45H INE 

CFS,4FH,4FH 

20H,56H 100 

01H 010 LHI 

0BH LLI ,F4M 

LMl,00H LLI 

SUI,(51H LBA 

00H LLI,F4H 

01H LBA LAC 

FBH,08H -JMP 

CAL.FRH,08H 

DFH LMI,0AH' 

LCK CAL,03H 

LBI,06H LDI 

LBA LAC ACI 
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1 CARRY 05714 

2 HERO 05715 

3 SIGN 05716 

4 PARITY 05717 

5 MEMORY 06000 

2P! SQUAPEROOT 20017 
2i X 05720 

23 Y 05722 

24 2 05724 

28 PRINTCHAR 21327 

29 CHAR 05726 
31 I 05727 

3a printstring 21757 

39 NAME i!)5730 

40 LENGTH 05732 
42 I 05733 

46 PRINTNUMBEf 22307 

47 NUMBE!^ 057i4 

48 BASE 05737 

49 CHARS 05740 

50 2ER0SUPPnESS 05741 

52 I 05742 

53 J 05743 

54 TEMP (15744 

63 I 05764 

64 HEADING 04771 

78 MONITORUSES 05766 



2048 BnPNNnPNNF 

9NNNNPNPPF 

2C556 BNNPPNNNNF 

bnnppnnnnf 
2064 bnnppnnnnf 

bppnnnpppe 
2072 bnnnnnnnpf 

bnnnnnnnnf 

2080 BPPNNNNNPF 
BPPPPPNNNF 

2088 iNNNMPNPPF 
BNNPPNNNNF 



bPnppnnpnf 
bnnppnppnf" 
bpppppnpmf 
bppnpnpppf 
bpppppnpnf 
bnnppnnnnf 
bppnnpnnnf 
bpnppnnnnf 
bnnnppnpnf 
bnnppnnnnf 
bnnppnppnf 
bppnpnoppf 



BNNNNPNnNF 
BPPNPNNMNf 
BNNPPNNNPF" 
BNNPPNNNNF 
BNNPPNPPNF 
BPPNPNPPPF 
BP°NNNNPNF 
BNNNPPNPNT 
BNNPPNPPNF 
BPPPPPNPNF 
BPPNPNNPNF 
BNNPPNNNNF 



bnmPnp^pnc 

fJPPN'VPPPOF 
PPPPPPNNPF 
BPPNPVNNNF 
BNNNNNPNNF 
pNNNrjpPFvNI^ 
DPPNONNNNr 
RPPNPNP\WF 
BNNFNPPPNF 
PPPNNNPPPF 
RPNNPNPPPF 



2I?!96 
2104 
2112 
2120 
2128 
2136 
2144 
2152 
2160 
2168 



2664 
2672 
2680 
2688 
26 96 
2704 
2712 
2720 
2728 
2736 
2744 
2752 
2760 
2768 
2776 
2784 
2792 
2800 
2808 
2816 
2824 
2832 
2840 
2848 
2856 



bnnppnnnnf 
bpmppnnnpf 

BNNPPNNNPF 
BNNPPNPPNF 
BPPPPPNPNF 
BPPNPNPPPF 
BNNPPNNNNF 
BPPNNPPP°F 

bppnnpnpnf 
bnpnnnpnnf 
bnnppnnnpf 
bnnnnpppnf 
bnnnpnnpnf 

^PPPNNPPfF 

bnnpnpnp^f 
bppnnnnpnf 

BNNPPNNNPF 
BNNPPNNNNF 
BNPNNNNNNF 
BPPNNNNNPF 



bnpnpnpnnf 
bnnnnnppnf 
bnnnnpnppf 
bnnnnnnnpf 
bnnnnnppnf 
8nnpnpppnf 
spnnPnpppf 
bpnnpppppf 

B NN PP NP PN F 
BNNPPNNNNF 
gpPPPNPNNF 
BNNPPNPPNF 
BPPPPPN°NF 

bppnnnnnpf 
bppnnnnpnf 
bnpnnpnmnf 
bppnnpnnnf 
bnnppppPnf 
bppnnppppf 
bppnnpnnnf 
bnpnnnppnf 
bnnnpnpnnf 
bnnnpppnnf 
bppnnppppf 
bnnnpnppnf 
bmdnnnppnf 
bpppnnnnnf 

BNNNNPnPNF 

bppnpnpnpf 
bnnnnnnnnf 

BNNPNPPPNF 

bppnnppppf 
bppnpppnnf 
bnnppnppnf 
bnnnnpppnf 
bnpnnnpp.'jf 
bnmnnpnppf 

BNNPPNNNNF 

bnnnnpnnnf 
bppnpppnnf 
bnnnnnnnnf 
bmnnnpnPnf 
bnnnnnnnpf 
bnnpnpppnf 
bppnnnpppf 
bnnnnnnnpf 
bnnnnnnnnf 
bpppppnnnf 
bnnnnnnnnf 



BPPNNPNNNF 
BNPPNPNNNF 
BPPNNPPPPF 
BPPNPNNPNF 
BNNPPNNNPF 
BNNPPNPPNF 
BPPPPPNPNF 

bnnppnnnnf 
bpppppnnpf 
bpnnnpnpnf 
bppnpppppf 
bnnnnnnnnf 
bppnppnnnf 

BNNPNNNNPF 

bppnnnnnpf 
bnnnpnnpnf 
bppnnnnnpf 
bppnnnnpnf 
bpnnnnnppf 
bpnnnnpppf 



bnnnnppnpf 
bnnnnnnnPf 
bnnppnppnf 
bnnppnnnnf 
bpppnpnnnf 
bnnnnpnppf 
bnnppnnnnf 
bnppnnnnnf 
bp pn np nn nf 
bnnpppppnf 
bppnnppppf 
bppnnpnpnf 
bnpnnnppnf 
bnnnpnpnnf 
8nnnpppnnf 
bppnpnnpnf 
bnnpppppnf 
bnnnnnnnnf 
bnnppnnnnf 
bpppppnnpf 
bnpnpnpppf 
bnnnnnnnpf 
bnnnnnnnnf 
bnnnnpnpnf 
3nnnnpnnpf 
bpppppnppf 
bnnnnpnpnf 
bnnnnppnpf 
bnnnpnppnf 
bnpnnnppnf 
bnnnnpnppf 
bnnppnnnnf 
bpppppnnpf 
bppnpppppf 
bnnnnnppnf 
bnnppnnnpf 
bnnppnppnf 
bppnpnpppf 
bnnpnpppnf 
bpppppnnnf 
bnnppnppnf 
bnnnnpppnf 
bnpnnnppnf 
bnnnnpnppf 
bnnppnnnnf 
bppnnpnnnf 
bnnppnnnpf 
bnpnnnpnnf 



bppnnnnpnf 
bpnpnpnnpf 
8nnppnnnnf 
bpppppnnpf 
bppnnppppf 
bppnnPnnnf 
bnnppnppnf 
bppnpnpppf 
rnnppnnnnf 
bnnnnpnnnf 
bnnpppppnf 
3ppnpnnnpf 
bppnnnpnnf 
bppppppnnf 
'bnnnpnnpnf 
bppnpnnnnf 
bpnnpnpppf 
bpnnpppppf 
bnnnnpnnnf 
bppnnpnnnf 



bnnnnpnpnf 
bnpnpnpnpf 
bppppnpnnf 
bnnpppppnf 
bnnnpnppnf 
bnnppnppnf 
bppnnpnnnf 
bnnpnpnnnf 

B NN PP PP PN r 
BNNNNNNNNF 
BNNPPNNNNF 
BPPPPPNNPF 
BNPNPNPPPt^ 
BNNNNNNNPF 
BNNNNNNNNF 
BNNNNPNPNF 
BPPPPPNPNF 
BNNPPNPPNF 
BPPNPNPPPF 
BNNPPNNNNF 
BNNNNPNNNF 
BPPNNPNNNF 
PPNPPNNNPF 
BNNNNPPPNF 
BNNNPPPPNF 
BNNNNPNNNF 
BNPNNNPNNF 
BNNNNPNPNF 
BNNNNPNPNF 
BPPPPPNPPF 
BNNPPNPPNF 
BPPNPNPPPF 
BNNPPNNNNF 
BNNPPPPPNF 
BNNNPPPPNF 
BNNNNPNNPF 
BPPPPNPNNF 
BNPNNNPPNF 
BNNNNPNPPF 
BNNPPNNNNF 
BPPNPPPPPF 
BNNNNNPPNF 
BNNPPNNNPF 
BNNPPNPPNF 
BPPNPNPPPF 
BPPNNNNPNF 
BPPPPPNNPF 
BNPPPPNNNF 



BPNNpPPPPF 
BNNNNPNNNF 
BPPNPNPPPF 
BNNPPNNNNF 
BNNPPNNNNF 
BPPPPPNNPP 
gPPNPNNNNF 
SNNPPNPPNf 
BPPPPPNPNF 
SPPPNNPPPF 
BNNNPNNNPF 
BPPNNNNPPF 
BNNNPNNPNF 
BPPPNNNNNF 
BPPNnPNNN" 
BNNPPNNNPF 
B PP NN PN NN F 
BPPNPNNNNF 
BNNPPNNNPF 
BNNPPNNNNF 



BNNNNPNPNF 
BNNPNPPPNF 
BNNPPPPPNF 
BNNNNNNNNF 
BNNNNNNPPF 
BPPPPNPNNF 
BPPNNNNPNF 
BNNNNPNPPF 
BN NN NN PN PF 
BNNPPNPPNF 
BPPNPNPPPF 
BNNPPNNNNF 
BNNNNPNNNF 
BPPNNPNNNF 
BPNPPNNNPF 
BNNPPNPPNF 
BNNPPNNNNF 
BPPPPNPNNF 
BNNPPNPPNF 
BPPPPPNPNF 
BPPNNNNNPF 
BPPNNNNPNF 
BNPNNPNNNF 
BPPPPPNNPF 
RNPPPNNPPF 
BNPNNNPNNF 
BPPNPNPPPF 
BNNNNPPPNF 
BNNNPPPPNF 
BNNNNPNNNF 
BPPPPNPNNF 
BNNPPNPPNF 
BPPPPPNPNF 
BNNNNPNPNF 
BNNNNNNNPF 

BNNPNPPPNF 
BPPNNPPPPF 
BNNNNNNPPP 
BNNPPNPPNF 
BNNPPPPPNF 
BNNPPPPPNF 
BNNNPPPPNF 
BNNNNPNNPF 
BPPPPNPNNF 
BNNNNNPNNF 
BNNNNPPNNF 
BNNPPNNNNF 
BNNNNPNPNF 



S 
NO PROGRAM ERRORS 
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